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N L, 
te EXCLUSION OF ALL NORMAL STATE STACKS EXCEPTING THE ONE 
BELONGING TO THE SAME MIX INDEX AS THE ONE SPECIFIED BY THE USER, 
US: wSTACK*" - AN 
ANALYZER WOULD BE UNABLE TU LOCATE wITRCUT THE USER"S ASSISTANCE. 


HE MAJORITY OF CPTLONS MAY BE SET USING A CUMMON CONTRU 
CARU$ A FEW MAY BE SET ONLY VIA THE "IN" MeSSade TO ALTER THE 
ba CONTENTS OF CERTAIN PRT CELLS WHICH HAVE BEEN RESERVED FOR 
bo N E : . 


1 THE COMMON CONTROL CARD IS ASSUME TO CONTAIN AN EIGHT OIGIT 
NUMBEReeIF LESS THAN EIGHT APPEAR, LEADING ZERUES ARE 
AUTOMATICALLY SUPPLIED, THE ANALYZER SEPARATES THE 3 DIGITS INTO 
TWO GROUPS oy at 


Ae THE 5 LEFT@MOST DIGITS ARE EXPECTED Tu BE *UCTAL* DIGITS 
WHICH REPRESENT THE TOP“OF*STACK ADUKESS GF THE USER SPECIFIED 
"STACK" AREAs IF ANY DIGIT EXCEEDS "7" OR IF ALL FIVE ARE "Os 


COMMENTS * TITLE’ B85500/85709 MARA XIV SYSTEM WELEASE ry OCOOU00L 
@ * FILE ID: SYMBOL/DUMPANL TAPE ID: SYMBOL2/FILEOOU * 00Cv0002 
_* THIS MATERIAL IS PRUPKIETARY Tio BURNUUGHS CURPURATION © O0v000U3. 
* AND IS NOT TO BE REPRUDUCED» USED» UR DISCLOSED * ocucoody 
ee. * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00000005 
* WRITTEN AUTHORIZATION UF THE PaTENT OLVISION OF * GOO000068 =— 
* BURROUGHS CORPORATION®s DETRULS» MICHIGAN 48232 * QCOULOC?7 
@ * * 00000008 
* COPYR 9715 1972 BLURRULGHS CURPOR * Te Bene: 
* AA220206 AA332366 AA386657 ¥3 §=§=00000010 
@ DUMP/ANALYZE 00000012 
ssa Oe ee AST OP RICHER 4A PPI 7 7 8 ok OUN0 GS 
bai SEVERAL OPTIONS ARE AVAILABLE FUR CONTROLLING THE ANALYSIS oovugco1s5 
eo. OF A MEMORY DUMPe THEY mMaY BE CLASSIFIED InTG FOUR CATEGORIES? 000N00z20 
ie a ge Sr NOUKIN25 
rs I. THOSE WHICH SPECIFY THE FORMAT OF THE PRINTOUT oF MEMORY? 00000030 
eo” SPLASH DUMPsOCTAL DUMPsALPHA/OCTAL DUMP»OR ALPHA DUMP? 00000040 
#8 _.__ EITHER SINGLY OR DOUBLY Spacrn, 00000050 0 : 
a 00000055 
e” Ile THOSE WHICH INCLUDE OK EXCLUDE AREAS UF MEMORY NOT OTHERWISE OGQU006 
hl INCL UDeD DR exchupeD? org 
re 1. YNCLUSION OF AVAILABLE AREAS. 000000K80 
@* 2e EXCLUSION OF? 00000410 
: ca 91) SE 2d 2: 8 eee oe ee PD Be SN oa ction 
; Be NORMAL STATE COVE AREAS, 00000130 
eo NURMAL STATE AREAS UTHER THAN TnUSE RELATING TU ONE 00000140 
RE S SPECIFIE SoEe 6362010 065 Eso Lee ee 
D+ ENTIRE CONTENTS OF MEMORY 00000155 
III, THOSE WHICH CAUSE OMISSTON OF CERTAIN SECTIUNS OF ANALYSIS? 00000160 
Pf ERS of 5 Pe oss Pale en a 
ALPHABETICALLY AND BY PRT LOCATION, 00000180 
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ONLY STACKS LOCATED BY THE ANALYZER WILL BE DUMPED. OTHERWISE? 
ONE ADDITIONAL "STACK"» PROWIDING IT ALREADY HAS NOT BEEN DUMPED,» 
WILL BE DUMPED STARTING AT THIS ADORESS AND CONTINUING UNTIL 
2ZO0CDECIMAL) WORDS BELOW IT HAVE BELEN PRINTEC( THE STACK JS 
ASSUMED TO BE A CONTROL STAIE STACK FOR PURPOSES OF STACK 
ANALYSTS). SHOULD MCRE OR LESS STACK BE DESTRED* THE AMOUNT 
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( IN DECIMAL) OF STACK-TO ANALYZE CAN BE ENTERED INTO PRT CELL 


27€OCTAL) USING THE -"IN" MESSAGE? 
N MQ A $ TH QP OF" STACK ALUE USED A BE 2 i 
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OF THE “"S" REGISTER TAKEN FROM THE UISPLAY PANEL Al THE TIME 

OF THE HANGe IF NO eee 1S SPECIFIED TRE ANALYZER te OBTAIN 
ONE ROM 2 ON sae -D Kk 

OBTAINED IN THIS MANNER IS GENERALLY. OF INTEREST? ESPECIALLY WHEN 
LINKS HAVE BEEN CLOBBERED. 


Be THE RIGHT*MOST 3 CIGITS ARE INTERPRETED AS DECIMAL DIGITS 
AND SERVE TU SET THE MAJORITY UF ANALYZER JPTIUNS. GENERALLY 
SPEAKINGs THESE OPTIONS ARE INTEGRAL POWERS OF 29 ARE INDEPENODEN 
OF ONE ANOTHER AND MAY THEREFORE BE USED ADDITIVELY, THAT IS» 
THE COMBINED FUNCTIONS OF COMMON VALUES 2916232» CAND 64 

COULD 8 QOKEN BY "COMMON=114"%( 3416432462 P 

TO THIS RULE WILL BE ELABURATED AFTER EACH COMMON OPTION IS 
DESCRIBEO IN DETAIL. 


MMOUN AK é NUS 


NOTES ae THE DESCRIPTION oF EACH OPTIONe IT 1S ASSUMED THAT A 
ANDA EMORY DUMP ANA NBITAINED. *EXCEPT* FOR 

aIFFERENCES GENERATED BY THAT PARTICULAR OPTION. A "STANDARD" 

ANALYSIS IS ONE OBTAINED wITH NO COMMON VALYECTe be CUMMUNSO). 


COMMON=0. : 
YIELDS A STANDARD ANALYSIS. AN MCP/PRT FILE 15 REQUIRED, 


COMMON=1.6 
YIELOS A Pee ee DUMP OF MEMORY» NY MCP/PRI IS 
REQUIREDe A Ei 


-IS ALSO PRINTED. 


OMMONs ; 
QOUMPS ALL AVATLABLE AREAS. 


COMMONSG 

— EXCLUDES ALL NORMAL STATE OBVECT CODE. 
THIS INCLUDES ALL PROGRAM. SEGMENTS ASSOCIATED WITH A 
MIX INDEX AND ALL INTRINSIC SEGMENTS» 


COMMON=8. 
EXCLUDES ALL MCP OBUECT CIDE. 


COMMONS16, 
CAUSES CERTAIN ARRAYS. SE Ted BY THE USER TO BE DUMPED 
SEE THE COMMENT AT SEQUENCE #00807460 FOR DETAIL O&O. 


COMMON332 
INHIBITS THE DUMP OF THE MCP PRT IDENTIFIERS SORTED 
ALPHABETICALLY AND BY PRT rata eae ie 
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eee OU UUU OBO icici ewe ts 
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COMMON=64, 
YIELOS AN OCTAL= ONLY DUMP OF MEMURY FORMATTED SIX WORDS/LINEs 


COMMON#126, | | 

YIELDS AN ALPHA/OCTAL DUMP OF MEMORYe €ACH PRINTEO LINE 
CONTAINS FOUR WORDS OF UCTAL FOLLOWED» ON THE SAME LINE» BY 
THEIR ALPHA EQUIVALENT. 


COMMON=256. 


LAST PATCHED Le/lis73 
YIELOS AN ALPHA DUMP OF MEMORY FORMATTED. TWELVE WORDS 
OF A PRA PER PRINTED LINE. ae 


00000910 
00000920 
00000945 
00000950 
00000960 
00000970 


00000980 
00000985 


QuvU0990 


00000999 
00001000 
00001010 


@ e 
0c001015 
@ COMMON=364. 00u010z0 e 
21N : S iTs EMO [etic 2 eet oe eae eee 
: THIS DOES NOT IMPLY THAT MEMORY IS WUT ANALYZED! VERIFICATION 00001040 
@.: OF MEMORY LINKS IS MADE» THE BED AND SLATE ARE CHECKED» 00001050 
3 A Paina emanice 
4 00001070 
@ : 00001072 
1M = : 7 
f CAUSES THE CONTENTS OF THE "ARGH" ARRAY TO BE PRINTED UP TO THE 00001074 
@|: eee VALID WORD POINTED. TO BY “YECH"s THIS INFORMATION IS PRESENT 00001075 
4 WH AN MCP PATCHsTHE "ROTO" PatcHs HAS BEEN COMPILED INTO THE 00001076 = ss 
ie cP ooco1077 
eo" 00001078 
N2 Ss PRT C S_ WHICH EXERCISE CUNTROL FUNCTION oa tes 
sae 00001085 
@™ , NOTE’ PRT LOCATIONS SRECIFIED REFER To OCTAL PRT LOCATIONS FOR 00001090 
Me 2 UBE IN CAN IN MESSAGE got OGIO = 
n6 00001110 
ee” PRT 25, 000uU1120 
hs S LL IS NORMALLY SET FROM THE RIGHT*MUST 3 GITS WHICH 8 ren wee ae 
hg APPEAR ON A COMMON CARDS HOWEVER» THEY MAY BE EXPLICITLY SET 00001140 
e@ po AND/OR MODIFIED DURING EXECUTION OF THE ANALYZER VIA THE “IN” 00001150 
: MES i aa stint OO EA Bes we arene 
e 00001165 
@ PRT 26, 0001170 
os OF _____THIS CELL CAN BE USED) TO ENABLE A DUMPeRY@MIX=INDEX. IF SET QoudiiRO 
$ : ~ TO A NON@#ZERO DECIMAL NUMBER EQUAL TO THE MIX INDEX OF A yOoB IN 090001190 
aq ) bel THE MIX AT THE TIME TRE DUMP IS TAKEN» IT wiLt CAUSE MEMORY AREAS er 
§ b7 BELONGING TO OTHER MM NOEXE 0 BE EXCLUDED FROM THE ANALYSIS 000 Seen 
gs NOTE THAT IF THE CONTENTS OF THIS CELL DUES NUT CORRESPOND TO a acuoleas 
£@ > VALID MIX INDEX» *NQ* NORMAL STATE STACKS wILL BE DUMPED NOR 00001230 
: po WILL AN NORMA STA AREAS ASSOCIATE with AN MI x NDE Xx 0000 6. "- lon Fe ae id, 1, 
3 PRINTED. 00001250 
e| 00001255 
B PRT 27, Q0O001Z60 eee 
4 THIS CELL MAY BE USED UNLY IN CONJUACTIUN WITR THE 00001270 
@®» PREVIQUSLY DESCRIBED COMMON CARC CONVENTION OF SPECIFYING AN 00001280 
6 OCTAL STACK ADDRESS AS THE FIRST 5 ULGITS OF THE COMMON VALUE. 00001290 
B7 IF MANE NON®@ZERQs THEN THE DECIMAL VALUE ENTERED IN CELL 27 00001300 
8 WILL DETERMINE THE AMOUNT OF STACK UUMPED BELOW THE TOP#OF*STack 00001310 
VALUE. IF LEFT ZER@Q» THE DEFAULT AMOUNT GF STACK OUMPEDCAND 00001320 
ANALYZED?) WILL BE 26CCDECIMAL) WORDS. 00001330 
00001335 
PRI 306 00001340 
THIS CELL» IF SET TO 1» WILL CAUSE. THE PRINTOUT OF MEMORY 00001350 
TO BE DOUBLE*=SPACED, OTHERWISE, THE PRINTOUT IS. SINGLE*SPACED, 00001360 
O00 0) , 
PRECEDENCE CF UPTIONS AND SUGGESTIONS FUR CUMBINING THEM 00001380 
00001390 
STATED EARLIER, COMMON UPTIONWS MAY HE USEU SEPARATELY OQUdI4OO 
OR IN COMBINATION, ALTHOUGH MOST COMBINATIONS ARE ALLOWEDs THERE 00001410 
ARE IMPORTANT EXCEPTIONS. THE RULES ARE! 00001420 
» A COMMON VEO PR JES THE USE OF ALi oO RS, 00001430 
2. A COMMON VALUE UF 512 PRECLUDES THE USE UF ALL OTHERS BUT le 000U1435 
3. A COMMON VALUE OF 384 PRECLUVES THe USE OF ALL REMAINING 00001440 
QMMON VALUES EXCEPT FOR 16 ANU 32. NOTE THAT 384 S_The Oo0U1450 
SUM OF 1284256, ree 00001460 
4. COMMON VALUES 224, B16). AND 32 ARE TOTALLY “INDEPENDENT AND 00001530 
ADDI ALL POSSIBLE COMBINATIONS. 00001540 


Data Documents/inc. 


0 a 0 Cg 2 é ° E 


A. 


Roreeretreerd ©0206 S17 40 eer wane ee ad ee ee 


00001550 
SOME SPECIFIC EXAMPLES UF CUMMON OPTIONS 000015460 
UOT HOS 
“COMMON=35721432", ; oe 00001570 
THIS CAUSES A "STACK" AT 35721 TU BE DUMPED ALONG WITH 00001560 
TACKS) NONE OF MEMORY IS PRINTED (C344), ThE MCP PRY ss goueiso0.. 
IDENTIFIERS ARE NOT PRINTEUC32)» AWL SELECTED ARRAYS ARE 00001600 
DUMPENC16). a COMBINATION MIGHT BE Page ne beeeee A 00001610 
MINIMUM ; iN YZE 10 
AFTERWARDS SCuNeE TO RAVE MISSED A STACKCIN ee ee 000016309 
LOCATED NEAR ADDRESS 35721), 00001640 
f3 "COMMONSiDO" eo Si a ee eo OU OP ASD ee 
THIS ELIMINATES ALL OpJect CODE FROM The PRINTOUT OF 00001660 
MEMORY, 00001670 
WCOMMON=64" ___. OGVVIAIND | Bidens am apne es ee, BE ca 
THIS ENSURES THAT AVAILABLE AREAS ARE ALWAYS PRINTED(2) 00001700 
AND PROVIDES THAT MEMORY IS PRINTED IN OCTAL FORMAT ONLY(C64)-. 00001710 
De "COMMONZB" aw OOO0L73IO 
THIS TOGETHER WITRK PRT 26 SET TG A VALIU MIX INDEX REDUCES 00001740 
THE AMOUNT OF OUTPUT CBTAINED GURING A MIX*CNLY DUMP, NO 00001750 
MCP CODE IS PRINTED LEAVING ONLY NON@MCP CULE AREAS BLSIDES OCG001769 
THOSE RELATING TO THE MIx INDEX BEING DUMPED. FINa~LLYs THE ONLY NORMALO0001770 
STATE STACK DUMPED IS THE ONE HELONGING TO THE PARTICULAR MIX 00901790 
ND asst ad DB SE Sa et ee at ie ee ee ee OOUOTROO- 4. 
00001900 


PROCESSING MULTIFILE QUMP TAFES 00003000 


OOOO Se eee 
THE ANALYZER WILL AUTOMATICALLY PROCESS, IN A GIVEN RUN» ALL FILES 00003010 


ON. A “DPMT" TAPE IF LABEL EQUaATIUN IS MADE TO ant FILE. BEYOND 4G 00003020 
R ONE » HE ORDER OF ANALYSIS IS OPPOS HAT O RE f OR 00003030 
EXAMPLE» IF LABEL EQUATION IS MaDE TU THE FOURTH FILE» "FILE MOUMP= 00003040 
MEMORY/DUMPOO4", THE FOURTH FILE IS oe ANALYZED» THE THIRD NEXT» 00003050 
HE Q R_ THA NE ANO THE FURST E ST. AS PROCESSING OF a 00003060 __ 
NEW FILE IS BEGUNs A MESSAGE IS WRITTEN TO THE CONSCLE SU THAT THE RUN 00003070 
MAY BE DISCONTINUED IF NO FURTHER FILES ARE TO BE ANALYZED. 00003080 
A COMMON VALUE MAY BE INCLUDED IN ThE COMMENT PGRTIUN OF JHE 00003100 
REMARKS ENTERED AFTER A “LPMT® CUMMANU GR aFTER KEYING IN THE UNIT 00003110 
WHEN NG THE MEMORY DUMP DECK Tre SYNTAX 153 "COMMONS"<COMMON VALUE>G00G3120 
» WHERE “COMMON” MA¥ BE ABBREVIATED AS "COM" aN MUST BEGIN NO LATER 000031430 
THAN THE 140"TH CHARACTER UF THE MESSAGEe A COMMON VALUE ENTERED 00003140 
IN THIS MANNER OVERRIDES ANY WHICH MAY BE SUPPLIED BY LABE EQUATION. 00003150 
ONE EXAMPLE IS? “"DPMT COMMOUNS363 ALL UORS APPEAR ASLEEP," 00003160 
00003470 
BEGIN 00003800 
BOOLEAN COMMONS 00003900 
INTEGER PRT263 DEFINE ONEMIX=PRT26#s & FOR DUMPING ONLY ONE yOB 00004000 
INTEGER PRT273 DEFINE MYSTACKSIZESPRT e743 % IF 40% AMT BELOW MYSTACKADR 90000410 


BOOLEAN PRT303 DEFINE ULOUBLESPACE=PRT 3043% CBL=SPACE DUMP GF MEMORY 00004200 
BOULEAN PR1T313% RFE 06064300 
BOOLEAN PRT323% USED FOR DEBUGGING THE ANALYZER 00004400 
INTEGER MYSTACKADRS% IF COMMON GTR MAXCOMMUNVALUEs IT PNTS TO A STACK 00004500 
DEFINE DUMPAVAILSCOMMON,(46:1)4%5 % COMMONS2 DUMPS AVAILABLE AREAS 00005000 
DEFINE NONORMALCOD MO 46534)#3% COMMON#e4 DONT ff NDE00006000 
DEFINE NOMCPCODE=COMMCN«(4421]43% B=DONT LUMP MCF CODECTYPE= 1e>MIX=0) 00007000 
DEFINE DUMPTABLES=COMWON. C43t1 HbR LO=DUMP SELECTED ARRAYS 000080C0 
DEF IA NONTO PRT=CQ ON 2 MMON=37 § S DP C OOUUSOOO 


DEFINE DUMPOCTALONLY sCOMMON«C41t1}#3% 64SUNCONOITIONAL OCTAL GNLY DUMP 00010000 
DEFINE SER EOR TA becUUHONs C4081]#s% 126e0UMP MEMORY IN ce 00011000 


_ DEFINE DUMPALPHAONLYSCOMMONS(3921]44% 25680UMP MEMGRY IN ALPHA ON 00012000 
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DEFINE NOOUMP=REALCCOMMON) «(39% 2]=343% 384SUMIT DUMF GCF MEMORY 00012500 
OFF INE DUMPCE SSPOOLONL Y= =COMMON » C3881 I#% S12=DUMP UNLY ThE "ARGH" ARRAY 06013000 
D N MAXCOMMONVA we ee es OOO IG OO tn st es 
FILE IN DISK BISK SERIAL MOP PRTC 2530)3 00916500 
FILE IN MDUMP 2€22533)3 % O1SK=533» TAPE S513 . 00016510 
FILE SPO 11¢1510)3 00036520  ~=— ee 
FILE P 4€3%15)3 00016530 
PROCEDURE PRINTCOMMONVALUESS 000170C0 
BEGIN Qavi7o1g = 
INTEGER 13 00017020 
SWITCH FORMAT COWINFOt= 00017030 
a ON ( AP ARES" Bite eee en 
ST TiTe O YIELOS A STANDARD MEMURY DUMP ANG ANALYSISe™)» 00017050 
C"COMMON=4 YIELDS A SPLASH DUMP WITH NO ANALYSIS,")» 00017060 
C"™COMMON=2 PRINTS AVAILABLE AREAS,")» OOO CO rine ol pale ne Se 
C"COMMONS4 OMITS NORMAL STATE CUDE SEGMENTS,")» — 00017080 
C"COMMON#8 OMITS MCP CODE SEGMENTS,")>» 00017100 
C™COMMONS76 CA CERT R DEF IN A RAY ITED,” eee eee 
C"COMMON=32 OmITS “THE PRINTING UF THE SORTED MCP PRT IDENTIFIERS s”) 200017120. 
C™COMMONS64 CAUSES MEMURY TO BE PRINTED ENTLRELY IN OCTAL oe"), 00017130 
"“COMMON=128 A MEMOR CO bE PRINTE; R AL PHasO Bie"eOOO0I714O 
C'"COMMONS256 CAUSES MEMORY TO BE PRINTED EwTIRELY IN ALPHA.), 00017150 
C"COMMON=384 CAUSES NONE OF THE CONTENTS OF MEMORY TO BE PRINTED,") 200017160 
" 4 j : : 7] : 
C"™FOR ADDITIONAL INFORMATION» CINSULT THE FIRST SEVERAL > 00017180 
"PAGES OF THE FILE*SYMBOL/DUMPAWL.")3 00017190 
FOR T:=Q STEP 41 UNTIL 13 DY WRITE CPsCOMINFOL]))s; 00017200 ponte bate oles sy 
END PRINTCOMMONVALUES3 00017210 
BOULEAN DONTPRINTLINKS»MYSTACKDUMPEDS 00018000 
FORMAT F 49oCte)," END O HIMP AWALYZ t,agc at H 00023000 
INTEGER PRTMAX#INTMAXsINFOMAXS o0ve4o00 
DEFINE PRIBASE=1294352FIRST PRT CELL ALLOCaTED 3Y ESPOL 00025000 
DEFINE ACTUALPRTIBASEsiic# 3% FIR PRT CELL aS PER mCP DEFINE 00026000 feet 
DEFINE PRTISMAx=1008% % UPPER LIMIT OF PRTS ARRAY 00027000 
REAL LEVEL »SUBLEVEL» VERSION; 00928000 
NT R A % IDEN R CLASS»AS [ RMINED BY 0 Q (0 Y ) ieraten Sona etree ene er 
INTEGER NAMESIZE*NAMSSIZE}3 00030000 
DEFINE NSNAMECNSNAME 1)= NAMECNSNAME 1]6(8% LO3#3 00031000 
NT R_INAME E» INAMSS]Y; 00032000  —s—_— 
DEFINE TSNAMECISNAME1S J=INAMECISNAME1Je£ 6310183 00033000 
ARRAY SEGZERO(0:29)3 00034000 
BOOLFA MCP34¥ FI PRT DETERMINE HAT M 0 5 WERE N DE N0035000 
STREAM PROCEDURE MOVE(S#Dsw)3 VALUE WS 00036000 
BEGIN SI%=S3 DIs=D3 OS8% W WOS 3 END MOVES 00037000 
PR DUR OMMONZ . 0.0 0100 a 
BEGIN ae ee 00040110 
REAL MYsD3 : 00040120 
ARRA Or01% 00040130 
FORMAT FCS" oe TS ep %5X1)5 00040140 
REAL STREAM PROCEDURE UCTDECCC)3 VALUE C3 00040150 
BEGIN SIe_oc C3 ple#Loc OCTUECS OSe anEc EN QOU40160 26 
BOOLEAN STREAM PROCEDURE NOTSOCTADES(C)$ VALUE c3 00040170 
BEGIN SIeLoc c3 SCF $C. GTR "7" THEN BEGIN TALLY*14 YUMP OYUT 00040180 
END ELSE SI*#SI41)3 NGTSOCTADES*¢TALLY END; 00040390  —__ 
STREAM PROCEDURE RECOCT(DsUlsUe2)s Value D3 00040200 
BEGIN SleLOc 3 yleO1s pSeS5UCTIOleU2spSe30cT ENDS 00040210 
% 00040220 2 
IF NOTSOCTADES(DeCCTOEC (COMMON) JTHEN O.(1229]¢0;3 00040230 
DECOCTCOsMYs eee SE 00040240 
MYzQ THEN MYSTACKADRe®@ 5 Se QO0040250 
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00041000 00 


BEGIN % CONVERT FIRST 5 DIGITS OF CUM AS IF THEY WERE OCTAL DIGITS 00040260 
WRITECTEL J oF eMY)3 00040270 
READ * STACKADR)3 000402890 
END3 : 00940290 
END BUSTCOMMON3 00040300 
PROCEDURE READARRAY (WORUS]ZE »ANAME » BASE )3 
VALUE WORDSIZE»BASE3 00042000 
INTEGER WORDSIZE»BASE} 00043000 
ARRAY ANAMEL#]3$ Je Fe gs ee ee OO CUR OOD: a... 
BEGIN 00045000 
INTEGER I,SEGSsN3 00046000 
_ ARRAY BUF EO829}5 | ete QQ047000 >= 
Nt=WwOROSIZE MOD 303 00046000 
Sheet er ORUS cE tee OIV 303 00049000 
t= —_QO050000 0 
FOR I%s0 STEP 1 UNTIL SESS 00° “ 00051000 
BEGIN 00052000 
: St x fo } Rem 
MOVECBUF sANAMELBASE+30xIJIF I #S5EGS OR N=O THEN 30 ELSE N)s 00054000 
END; 00055000 
PRT3 : 
159" SIZEs mies face Gace TEs FOR Preece STEP 1 UNTIL 00057000 
Bees Oye ite “1 09 BEGIN MOVECANAMEL IJsBUFLOIJ-193 00058000 
END OF READARRAY3 00000000 
BUSTCOMMON; 00061000 
OMMEFNT:~O G Ola ONS "*CmMIxX)INe oO" 7 } MMO SONERO ARDS Diet 2 
IF COMMON THEN NAME SIZE s#NAMSSIZEs=IN AHESIZE (eENANSST ZF io; ELSE 00064000 
BEGIN 00065000 
READARRA GEN Sea A oS Woke ah Us te Heerenveen Te eo ee EG 6 YAY a 3 Vo ne TET 
CLOSECOISK)3 00067000 
LEVELt=s"2"3 % 4 DIGIT 00V68009 
SUBL Lt="OO"3 % DIGIT: 00008100 _ 
VERSION? S"B"3 &% 00068209 
COMMENT EACH TIME ANALYZER IS CHANGED. INCREMENT ALPHABETICALLY 00068300 
MCP? sBOOLEANCSEGZEROC1)23% COMPILE=TIME OPTIONS 00009000 
NAMES]ZES8=SEGZERO[2]4434 # OF MCP PRT CELLS (ABUvE 200) 0007/0000 
NAMSSIZE%=SEGZEROL3)3% # OF WORDS ThE MCP IDENTIFItERS OCCUPY 00071000 
NAMESIZE t= R +13% # 0 NTRIN oog72z000 ss 
INAMSSIZES#SEGZERNCS]3% # OF WORDS THE INTRINSIC TOENTIFIERS occuUPY 009073000 
END SEGZEROSTUFF3 009074000 
FOMAX$S4xPRTISMAX43 00078009 
ALEK EE ESSE EE INNER BLOUK BEGINS &@ 6 eK BRS BRR YX Se COOTID00 
BEGIN 00080000 
ABE OPROG3 0006040 
LABEL RESTART»sxXx3 000860500 
INTEGER 13 00081000 
REAL. Rs Qo082000 
REAL AUXTYPES 00082050 
BOOLEAN SGLTOG3 00082100 
BOOLEAN NODUMPTUG3 00082110 
BOOLEAN NOMO*sMULTIsREPEATING*RELOADS 00082150 
ARRAY PRTNAME(O3 4333 00082200 
ARRAY TPNAMELO?223 00082250 
DEFINE TOMFID=TPNAME[OJ#> 00062300 
TOFINSTPNAMELLJ#>» 00082310 
FILETYPESTPNAMEL2I] 43 00082330 
ARRAY PRISCGEPRISMAXI3 00083000 
ARRAY INFOCOPINFOMAX41 13 — 00984000 
ARRAY NAMELPRTBASERPRTB ASE*NAMES AZE M133 00085000 
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ARRAY NAMSLO&NAMSSIZE1L])3 00086000 

ARRAY INAMECOS INAMESYZE~ 115 00087000 @ 
ARRAY JNAMS(O3 AM “ 0008800 essere ato 

ARRAY {NAWECACTUALPRTAASE! 2011) 00089000 

ARRAY XNAMS(O818)3 00090000 


D N XSNAM XSNAME a ¥NAM NAME ‘ we. 000 000 


oor mo on FF WH = 


INTEGER MIXMAXS BMYXMAX OBTAINED IN "GE TPRTENTRIES* 00092000 
REAL eNotes EDs 00093000 

D N XMAX=BCH> ¢ Oi 
ARRAY STAXLOESTAXMAX=]113 INTEGER MAXSTKsBEDSTK: 00095000 
COMMENT! THE pee thes BELOW ues eon eaeen TO THOSE IN FILL /PRTS 00996000 


s u 8 ‘ 


$$ 000979009 


ba CHECKLINK = MCP. [hotline 00098000 
er DATACOM = MCP.[C4531] #> 00099000 
N2 D fa = p 44k a 00 O00 _# 
DCSPO 3 MCP.C4at1]#, 00101000 
@ DEBUGGING = MCP.L42t1l#, 00102000 
1's DF x e MCP,C4it1 Ja» 00103000 2 
He OISKLOG = MCP.C4O% 1 I#, 00104000 
@r DUMPP = MCP.C39% lI, 00105000 
18 __ INQUIRY = MCP.»(I8ill#, Soe eee AM he gee et = OOO O00 0 =. oe 
9 SAVERESULTS = MCP,C37%1)] 4 00197000 
@ ® SHAREDISK = MCP.C36%1I#s 00108000 


: sect SC Be Sa A a OOO ONG cn 


: 


y Ui 4 a : 5 5 TI 
op 6 th 5 e 


SLAT 
NSLATE 
LSLATE 
ESPBIT 
AVAIL 
MSTART 
MEND 
TOGLE 
BED 

PR 

WAR 
INTRNSC 


ISTACK 
 PROCTIME 


aenim toa eeu s BAAN 


PRISTOOJ#, 
PRTSCO1L]4, 
PRTSCO2]4> 
PRTS(OQOJI]#> 


PRISLOAI#, 
-PRISCOS]#e- 
-PRTISCLOSJ#, 


PRTISCUCI#> 
PRISCOS)]#, 
P sCielt, 


“PRTISCI3}8s | 
APRISEIATS 


22: 
PRTSL1O)8, 
PRTISCI?7 14>, 
PRTSTIBlE 


PRISCI9J#s 
Heat aa 


Py 9 


00121000 
00122000 
00123000 
00124000 


00125006 . 


00126000 
00127000 


AUXMEMM = MCP el34ilias 00110000 
Ps RJE = MCP,C3I3% 11k, 00110100 
P SEPTICTANK = MCP,[L31%1 14, 00110300 
PACKETS = MCP,(C30% iI #> 00110400 

MON URR aCe 29% ore OO er oe Be 
MAXOPT = 198% &® UPDATE AS OPTIONS ARE ACNED 00111000 
ARRAY MEMORYL0163,03 51i1]3 00112000 

D N PMAX=6 35 0.0 0.0 Peed dear cette ot 
DEFINE Ma@MEMORY#s x 00114000 
FFSC18:15)#5% 00115000 
af: StH, 3 OD 6000 a ES a 

CTF=L18333215]%,32 00117000 
CTC=L£332833%451]4,% 00117100 
ROW=(33:6)#s &% 00118000 
COLSL3IOI9 Hs X£ 00119000 
DEF INE DEF INEDMIXWAX= 9% 53MIXMAX NOW OBTAINED FM PRT MOTHER 00120000 


00128000 
00129000 
O00 000 
00131000 
00132000 
00133000 
00134000 
00135000 


OO oROROKO 
00137000 
00138000 


00139000 


Data Documents/inc. 
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(is 3 


CHANNEL s PRTSlecl#, 00140000 
FINALQUE = PRTSCE3]4> 00141000 
* ES fea lx 00142000 20 
IQQUEAVAIL = PRTSC25]#>5 00143000 
IOQQUE = PRTSE2OJE» 00144000 
tie wg i SU NE ee eo RS PS ig ky a a ONLMSONO 
TINU = PRTS(d8]#>» 00146000 
WAI TQUE = PRTISCEYI]#>» ’ 00147000 
_—NEKTWAJT S| PRIS GOTH, OOO BNOO 
FIRSTWAIT =z PRTISCILI#» 00149000 
LABELTABLE 3 PRTIS({32]4>» 00150000 
aa MUTT ABLE UUs PRISEG3 lee UU ION 
RDCTABLE = PRIS( 34) 4» 00152000 
OPTION = PRTSL33]#.5 00153000 
S_PR 3 Sha a O0154000..... 
PRNTABLE = PRISC371#> 00155000 
INITIALIZE = PRTS(36)#, 00156000 
Se i a ar at tl i ON ST OOO. 
PeMIx = PRTSC40) 4s 00158000 
NOTHINGTOCC = PRTISC 4114, 00159000 
se oe SRC ROVE RR eo Pe a i NGO Oe eine wenn tectnnseeld 
RETURN = PRIS(C43]4> 00161000 
DIRECTORYBUILDER = PRISC44)#, 00162000 
Sina Genteon 3 = 4Ad]#s ee 00163000... 
SAVERESULT = PRTS(46)#» 00164100 
AUXDATA = PRIS( 47) a 00164110 
ge sn ar eh RT eB re oc es we Se OLE ROO 
Euyo = PRISLS9]#» 00164130 
PEQIO = PRTIS(SO]#, 00164140 
en. AVTARLE = am 
REPLY = PRTIS(S2)#,> 00164160 
TRANSACTION = PRTS(S31] 4» 00164179 
ON aaa ce i a a a i ee OOM 
MEMASK = PRTSCS5)#-» 00164190 
CTABLE = PRTS(56]e- 00164200 
Se ces oe = PRTSLO7 I] #> Q0164210  _- 
OBARRAY = PRTS([>AJHe 001604220 
ATTACHED = PATS(29)]4>» 00164230 
fos STATIO = PRIS(6O0J4> 001642740 
DCQARA = PRTS(O1)#s 00164250 
USERSTA = PRTS(42) a» rd 00164260 
eee TUSTABYMIX = PRTS(O3]#,s 00164270 ss 
QTIMES = PRTSLOd4]#» 00164275 
EUQ = PRIS(OS]e» 00164280 
CIOROW __= PRTSLOOJa» 00164285 
ARGH = PRTIS(O7]#» 00164290 
YECH = PRTS(66) 4» 00164295 
_._ DIRECTORYFREE & PRTS{LO9J#s 00164300 7 
SYSNO = PRTSL7OJ#,s 00164305 
STATIONMESSAGEHOLOER 00164310 
= PRIS(/ilis 00164314 son, 
LOOKG = PRTS([72] 4. 00164315 
PINGO  . = PRIS(?3)#» 00164320 
DC19@ = PRTSL74I]#» 00164325 ~—s_ 
ILL =z PRTSL75)] 4s 00164330 
RJEWAITO = PRTSL 46) #> 00164335 
NOPROCESSTOQG = PRISL771#» 00104340 sy 
MIXMASK = PATS(#E) 4» 00164345 
INFOMASK 1 = PRTSC79J#» 00164356 
INFOMASK< = PRUS(80]#» 00164355 
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e ee _ i ne @ 
CCMASK4 = PRIOCB8L) a> 00164360 
@ CCMASK2 = PRIS(82]&» 00164365 ®e 
= = ee ae ee eNO Kc Sc 5 0 Se ee 
' DISKOUNT = PRTS(84)as 00164380 
® EUW = PRTS([85]#» 00164390 
PUNTER = Pi H6 Ju OO164409 
; LQue = PRISLO7)#> 00164410 
@ : LQAVAIL = PRTS(68)4> 00164420 
= PRISCE —O0164430 
7 IOQUESLOTS = PRTS(90)#> 00164440 
ee: DUMMY = DUMMY 43% . 00164999 
8 PROCEDURE FI FO eee ate oe Sind SoS OOO SOOO as osngsin nce 
fo FILL INFOC*) WITH % 00166000 
e" "SLATE  "»020226» 00167000 
na __"NSLATE "90202 22s 168 Sa Mee a eee 
~ MLSLATE "9020022, , ae 00169000 
eo rd, "020910. & 03 00170000 
A aoe , r thts Sofas teat 
a "MSTART "9090023, % 05 00172000 
ai SEND "2020%23s % 06 00173000 
20909229 eed da te ae eh OO OO eee, ee 
9 "BED "50909265 % 08 00175000 
@ a ee nee % O09 00176000 
OrUs0r0s % 10 ae ne ae oe es a POO enc eee oc 
b2 02020»0» é 1i 00178000 
@» "PRT "sOr0r26r & le 00179000 
24 "JAR WPOP ORR Om Fa a St tee ON OOOO et ete 
P "INTRNSC "2020%26s B14 00181000 
@ "SHEET 2020026, & 15 00182000 
R7 "JOBNUM “sOr0022y5 & 16 A at Ait pi 
pe "PRYOR "s0»0»26» % 17 00184000 
@r "NFO 2020226» % 16 00165000 
‘ WISTACK "090926 2.19 OOLSO000 
BY "PROCTIME™s0909 26» &® 20 00187000 
or "TOTIME "s0sQ226» % 21 00188000 
‘ "CHANNEL "20002260 % 22 00169000 ss 
‘ "FINALQUE"20209265 b 23 00190000 
or "LOCATQUE"»% 050026» # 24 0019100¢ 
Bs "TOQUEAVA"s"] "09225 % 25 0019200 ae: 
id "TOQUE "2020926> % 26 00193000 
 ) be "UNIT 1020926» & 27 00194000 
89 "TI 5090226 f4 - 00195000 = 
"WAITQUE "»CsQs26s % 29 00196000 
e i MNEXTHALT" Or 0+ 22e | % 30 00197000 
W A UJ "20 y a OO BROOD ee 
: "LABELTAB"s"LE ", 0026» 32. i edie 00199000 
@ + "MULTITABTs "LE ",09 26s : #33 . , 00200000 
5 RD ARLE *sOe0 6 % 3 OO201000 
"OPTION "200922 aa) 00202000 
er "MESSAGEH™s"OLDER ,0%22» ’ 36 00203000 
8 "PRANTABLE" O» 26 % 00 000 fread 
WINITIALI“S"ZE ",0210» % 38 - 900205000 
“PLMIX "s09092es % 39 00206000 
"*POMTX s0s02 22 j . Mee : OO2Z07000 
"NOTHINGT"s"0D0 "20r 329 % 44 00208000 
ee gt ky ",0932» 4 42 00209000 
RN % 43: pet OSI ORO 
"DIRECTOR » "YBUILDER"s0#10> ® 44. " 00211000 
"DCQPTSTA"s "CK 500225 % 45 00212000 
: ," "20 4 6 O00 0.0 
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3 a 0 ° : E n AS: Sk x 


oon ow aereons 


= 
i=] 


=> 
(< 


= 
a ry 


x 
we 


"AUXDATA “0002265 4 47 00212200 e 
“AUXCODE "s0s0s726.e % 48 00¢12300 
" 0 "90202 2h ‘ pit ele eo OPT OU OG Selah as oe epee i 
"PEUIO “2000926, % 50- 00212450 . : 
"AVTABLE "sOs0026>» % 51 00212500 :/@ 
WREP 7020226 ‘ OOP ASS Ooo sen. tee oy ee 3 
"TRANSACT™s "ION ",0926» % 53 00212600 ‘ 
"DALOC "s020» 26» % 54 00212625 |@ 
"MEMASK "5090926 4 55 00212650 : 
*CTABLE 9000226,» % 56 00212675 7 
nes "50909265 a 57 00212700 | |@ 
"DBARRAY 090226 ‘58 3 oy). : 
"ATTACHED" 020926, % 59 00212750 10 
"STATION "s0s02 265 % 60 00212775 1@ 
"DCQARA "s0s0026» a 61 nag OE PERO 0 4 na te 
"“USERSTA "e0200265 % Qoel2g25 3 
"TUSTABYM"®"IX "09.265 3 00212850 \@ 
WQTIMES “s000s265 ut a SUCRE 31 G> Ea ae ee ee ee : ta 
*FUQ 5020226» 4 65 00212880 ba 
"CIDROW s090926, % 66 00212885 @ 
"ARGH ne Or0r26s Se i OOO ce eet Nata ee tc edd sh ig ie Bs Sena 
"YECH e0209225 % 64% 00212895 9 
"DIRECTOR". "YFREE ", 0222s % 69 00212900 21 @ 
" No * é BEN 02 62s 0° 898: ee eee Rae ONE Net ee eee a ETc lee 0 sivas PO Lee a a 
"STATIONM"s"ESSAGEHO"S"LDER & 71 oo2gl2910 
"LOOKQ "s020022s % 72 00212915 
"PINGO 1" ? SS a ae a oN ee OP LOO 4: 
"DC19Q: "s0r0022s % 74 00212925 
"TLL 2020022. % 74 00212930 
WROED < ; 7 
"NOPROCES™s"STOG ",0s22% % 77 00212940 
"MIXMASK "s0s0s225 * 78 00212945 
"INFOMASK'"," "0222s % 79 2 Rader hetema tet ae i 
"INFOMASK", "2 ",0922% % g0 00212955 1@ 
"CCMASKL “eOr Qe 22s 2 ai 00212960 32 
"COMASK2 “s0s0022» & 8 O0212965 7 
"CORE "s020s922s & @3 00212970 
"OISKOUNT"s 020923» & ¥4 O02l29BC @ 
"EUW "s0s02222 ~ 85 Oe OO ae a oh i ee i 
"PUNTER ‘a0e00265 % 86 00212992 a7 
"LQUE "90209265 % 87 00212994 1@ 
hd QAVA ",0 ge) 1 , 8K ) 49009 ‘ 39 
"TAR ",020226» 00212998 40 
"TUQUESLO"» "TS 00212995 «|@ 
He 4 42) 
COMME NT oe ie oe te ie ae te ate oe te ie te ae i ie ee aNd a ke RO ee ak Rk ee het sae soos 4 
FOR EACH IDENTIFIER DEFINED IN THE ARRAY “PRTS", THERE MUST BE 00215000 4@ 
A CORRESPONDIN WOR [nfo E ‘ R WORD 0021600 en a9 
ARE RESERVED FOR THE IDENTIFIER TEXTe THE FUURTH MUST CONTAIN 00217000 5 
THE | CLASS a THE IDENTIFIER AS OETERMINEN BY THE ESPOL COMPILER, 00218000 8) 
A N F STUF ARD 00219000 48 
FOR THES DENT IFIER« IF THE chassS 1S NOT “KNOWN» &- ZERO MAY BE 00220000 o 
USED © TN THE "INFO" ENTRY FOR ITs HOWEVER USING A CLASS OF ZERO wILL 00221000 | @ 
NCR N : ; iN OOZ O00 Fcc Ae tay op nan on Sopa ed ee 51 
IDENTIFIER. NOTE THAT ALTHQUGH ARRAY "PRTS" MAY CONTAIN GAPS 00223000 5 
"INFO" MUST CONTAIN A DUMMY ENTKY COMPRISED UF ALL ZEROES(SEEsFOR 00224000 «| @ 
NSTANCE»s PRTS(9)], PRTS PRTS{14) 00225000 
FOR CONVENIENCE s THE CLASS NUMBERS THAT THE ESPOL. COMPILER MAY 00226000 : ; 5 
ASSIGN AND WHICH MAY ge Salk ON A STUFF CARD ARE LISTED BELOWS 00227000 «4 @ 
PROCIO. 00228000 ou S 
@ eo 


oo ~~ ® OF FF WH = 


Data Documents/Inc. 


8 a 9 2) a a * : ~ 


STRPROCID sick, 00229000 
BOOSTRPROCIO zig,» 00230000 
REA RPREA =14# ON2@510090 
INTSTRPROCIO 2154,» 00232000 
BOOPROCIO =1iths 00233000 
ne 
INTPROCIO = LGR, 00235000 
BOOID =218> 00236000 
INTID RAZR» 00238000 
BOOARRAYIO =a5#s 002439000 
REALARRA SOs : fence eee 610-4 1.016) 01 0 
INTARRAYIO =27#» 00241000 
NAMEID =30%> 00242000 
= NTNAMEI a3, 24 
LABELIO s 32H» 00244000 
FO IOI II III III II III GI III III III IIIUIG GTO otigcioeeicniond 00245000 
PROCEDURE SETUPXNAMEANDXNAMSS DO 
BEGIN 00247000 
STREAM PROCEDURE FILL XNaAMSCXNAMS); 00248000 
R N OO2ugngn sss 
DIteXNAMS; 00250000 
OSis 8LITNT4 "5 00251000 
is ‘Tt " pan 
DSis 8LIT"NT3 "3 00253000 
DSts BLIT"NT4 "> 00254000 
Sts " ws sss ss 
DSt= BLIT"NTS "5 00256000 
DSt= BLITYNT? "5 00257000 
ry " " va ce 
O5?= BLIT"CLOCK "3 00259000 
OSs BLIT™XCLOCK "3 00260000 
DSi= 8g "READY ase 00261000 
DSIs BLT tenn wam mts: 00262000 
DS$s BLIT™KLUMP "3 00263000 
3 s "ne bed nn ") Mine Bone 
OS8= BLIT"LASTOECK'S 00265000 
DSt= BLIT"DIRDSK "3 002606000 
DSis § " MO "5 Q0267000 ee 
OS%s BLIT"RRRMECH "3 00268000 
END OF FILLXNAMS3 00269000 
ARRAY TCACTUALPRIBASE? 213]5 00270000 
INTEGER IeJ3 00271000 
FILL TO*] WITH &%& XNAMES 00272000 
1239180» 00273000 
L2001501> 00274000 
11951002» 00275000 
12761203, 00276000 
12591904, 00277000 
124942055 00278000 
2691206 QQ0279000 
12691207» 00280000 
112519885. 00281000 
21209 00282000 
1149145910. 00283000 
1iSeie11, 00284000 
O 4 OOeba000 
11720138 00286000 
etree weirs 00287000 
222116 _ 0288000 
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ononnwt ans wr = 


A Ae A ee 2 


: 


L29e1917>» 00289000 e 
121919183% oo2¥00CC 
FILL XNAMS(XNAMS $902 91000. Behe On hale Ree ieee th ort Sa 
JtsACTUALPRTIBASE 43 00292000 ; 
FOR ItsACTUALPRTBASE STEP 3 UNTIL 211 vo 00293000 |@ 
XNAME } J pa OA 6) 0 eee Ray he ee eee : 
END SETTING UP XNAMEAKDXNAMS3 00245060 1@ 
REAL LINKTYPES 00295100 : 
ARRAY AREA : AX+113 Eye os Lc ec ea é 
PROCEDURE FILLAREATYPES 00295120 | ’ e 
COMMENT#**AREATYPELLINKTYPE J» WHERE LINKTYPE IS THE TYPE OF MEMORY 00295130 : 

NK Oo #& Peet h a ON A TA f 3 A ames : 295140. be as tt coe x 
PRINTING THE AREA $ L=OCTAL» 2=ALPHA/OCTALs 3=ALPHA ONLY. 00295150 ie 
OUMPMEMOR YANONOTE STACKS DETERMINES LINKTYPE FROM (3:6) OF A PRIMARY 00295160 ‘ 

PRIN als HEN OBT AI AKEA N AN PRIN H ARE A OG eS D Oa a es Se a a Se a alte ce a e 
IN THE APPROPRIATE FORMAT, ELEMENTS 0 THRU TYPMAX CORRESPOND TO 00295180 Je 
POSSIBLE ae TYPES, ELEMENT TYPMAX+4 15 USED TO Gen) OTN THE ere 00295190 ie 
ORM A . PRINTING AN ARF ae wh 0 NOT BEC OCS O00 nee i ae . 
OR CONTAINS A CLOBBERED LINKs THE CUNTENTS OF ANEATYPE ARE NOT 00295210 a 
USED lf Pipe Marea DUMPALPHOCTAL OR DUMPALPHAGNL Y ARE SET OR 00295220 . ks 
h , ARE BEING PRIN Q ORRESPONDING FORMS SROSER 01 1-2 bs OAc 6c RO Tne OO ORSMIE res Caro nee ee " 
CODE 1s NOT NEGATIVE. FOR EXAMPLE» A NEGATIVE CUDE SUCH AS "2 CAUSES 00295240 1@ 
BOTH IN*USE AND AVAILABLE AREAS TO ee FORMATTED AS ALPHA/OCTAL A 00295250 
OW ) * Af) ved B ¢ mB iA eri A 7 ff) 14-2 NO¢Y ee ea a te es, 
AVAILABLE AREAS» IF PRINTED, wJULD se PRINTED In SOTAL ONLY, wk ee 5 OUuey¥5270 10 
FILL AREATYPEL*] WITR % 1°UCTAL* 2=ALPHA/OCTAL? 3=ALPHA 00295280 a 

pSV. E76" ESTE ol ¢€ Sapeet cea ne Ot e mr  e OTe oat POR ee ONO Se ele VME eo ae Ove Neier COOTER 4075 ° 1 > 'o UN ee eee 
19% CODE(1) 00295300 . e 
20% DATAC2) 00295310 fe 

Z ai: 6.) 2-95 :990 oe 
1>% ALGFIB(4) 00295330 12 
29% INQBUF(5) 00295340 it 

& OR R(6 O0¢ ee re et Se A ee ‘a 
te% INTSEG(7) 00295360 1@ 
1t»% HEADER(B) 00295370 ie 

PND ee rie ee ats Bee SR et ee ee ON OE RAO tea, oe Bae tet lee ee ta A a 7 
19% (10) 00295390 ie 
1o% ¢11) 00245400 ‘ 

% ACK (12 Es 02-1171 bc eee ae ae ae eee = 
1-% €13) 00295420 a 
19% (14) 00295430 4®@ 
les 0029 0 nhchiome se Laure 39 
1% (16) 00295450 1@ 
te% (17) 00295460 at 

»% (18) 00245470 aq 
19% (19) 00295480 A 
2% CIDROW(20) 00295490 4@ 
49% (21) — 00295500 - 4 
12% (22) 00295510 ‘6 
L3¥eeeDEF AULT IF UNABLE TO DETRMINE LINK TYPECTYPMAX41) 00295520 1 @ 

DEFINE NEXTPAGE=WRITECPLPAGE 1) #3 00296000 _ “8 

FORMAT STARS(C2Q0("awkwunl) ds 00297000 49 
STARZC HCH") D5 00248000 5 ft | @ 

FORMAT MCPHOR("DCMCP eXVe™s Ales meade” COMP ILE@TIME. OPTIONSs")3 c00299000) at 

SWITCH FORMAT MCPOPT?s¢ “BREAKGUT™) 00300000 5, 
»( "CHECKL INK") 00301000 s{@ 

o¢ "DATACOM") 00302000, —ss 6 

>( *DCLOG") 00303000 . 55 
it "OCSPO") 00304000 @ 

a "DEBUGGING"™) 00305000 mos . 5 
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8) 
ai 


; Se ee = 
So s = 85 & & 5 & 


ct] 


(SZ > 


a NFO PLO ; ASSta ENE OQ 


Sey eke 


o( "DOFK") 00306000 
a ¢ "DISKLOG") 00307000 
Pa tee a I MS 8 a et eh 
aC VINQUIRY") 00309000 , 
a( "SAVERESULTS") 00310000 
-_ ( " 7c" " 
» ( "STATISTICS" ) 00312000 
a TAURUS) 00313000 
me “"B6500L0AD") 00313200 
a "SEPTICTANK") 00313300 
at "PACKETS™) OO3RP3IHOO 
a¢ "MONITOR" ) 00313500 
3 00314000 
ALPHA ARRAY JID[(o8 USED TO CUNTAIN & iT WRU PR 00315000 
PROCEDURE MABE LODE PCeLe CDR Re IDLOJSINTEGER Locs 00316000 
BEGIN 00317000 
___ INTEGER I,-N3 
BOOLEAN STREAM PROCEDURE GOTIDENT(As NeBF VALUE NS 0u3!9000 
BEGIN SIt=AsDT2=BSTALLY2=03 00320000 
____IF_N SC = i= 
GOTIOENTS=TALL¥s 00322000 
EN SE rPEN 00323000 
f —OOJ324009- 
FOR Its 129 STEP 1 UNTIL PRTMAA DO 00325000 
. Nt=NAMECLII],£18230] NEQ O THEN 00326000 
= = eerenremee ¢ 5 61F- 5-601 0110 tiger eeretre eee near 
IF KLASS LE@ 0 OR KLASS#NAMECII].0325) THEN 00328000 
IF GOTIDENTCNAMSCNeCFIJONSEBxNeFFeIONLUI) THEN 00329000 
BEGIA . 00330000 
LOC&=T3 00331000 
Tt=PRTMAX4+232%FORCE FALL THRU 00332000 
ND3 00: O00 
IF 1 GEQ PRIMAX +2 THEN ELSE LOCts@1;3 00334000 
END OF TABLELOOKUP3 00335000 
DEFINE GETIDLOCCGETIDL OCI,GETIDL Oc2,GETIDL Oca, GETIDLOC4 00336000 
BEGIN 00337000 
avee IOC*]) ET eee tt PGETIOLOCE »GETIDLOC3S 00338000 
: K 00 0.0 
END#3% 00340000 
PROCEDURE FIXDEF INES} 00341000 
BEGIN COMM aR WA S46 caw VAs ean dhe eee ek deaa se eeeawewnea aes 00342000 
THIS PROCENURE IS RESPONSIBLE FOR FINOING THE PRT LOCATION OF AN 00343000 
einen DEFINED IN “PRTS*" FOR WHICH THERE IS A CURRESPONDING 0034400C 
RY IN "INFO" D HhIS KY CA NG "TABLELOCK( 0.0 ; 000 
PERFORM A LINEAR “SEARCH OF *"NAMES” TQ: LOCATE. AN IOENTIFIER. IN 00346000 
MNAMS ® AND COMPARE IT WITH THE GONE GIVEN IN "INFO TF AN: 00347000 
D “CAN NOT 8 OCATEO IN "NAMS", THE "PRTS" EMEN 00348000 
LEFT UNCHANGED=~CTHERWISE> THE ADDRESS OBTAINED 1S STOREO 00349000 
IN "PRIS" Wate k eet tee eee eae aa eke tthe teed 00350000 
NTEGER [>LOCc3 00351000 _ 
INTEGER STREAM PROCEDURE IDEENGTHCA)s . 90352000 
BEGIN LOCAL La. Syssloc Ls. D1isa3 00353000 
3a¢ &§ N 00354000 
STs=_Oc L END); [OLENGTHSSTALLY3 00355000 
END ITOLENGHTEH3 00356000 
NF OS 003: 00 
FOR 1280 STEP 4. UNTIL INFOMAX DO 00358000 
IF (LOC §@ LDLENGTHCINFOLII))20 THEN ELSE BEGIN 00359000 
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0 1 4 * E F 5 
i > 6 oh 5 © 3 


ee ee q@ \e 
TABLELOOKUPCID»LUC)3 00361000 e 
PRESET ZAI 191 F LOc GTR O THEN LOC ELSE PRIS(I/4] ENDS 00362000 
eee ee ERE 90 (5 0 ¢ Ree eee eee eed 
IF PRT329(46!1] THEN FOR 1320 STEP 1 UNTIL PRTSMAX DO 00364000 ' 
WRITECPo<"PRISE e130") "se TG>eTePRISLIIDG 00365000 ag 
BOOLEAN STREAM PROCEDURE RBITONCWeB)3 00395000 @ 
VALUE 83 00396000 
pr OO es : 
SIt=W3SKIP B SB3 00398000 @ 
IF SB THEN TALLY2=213 00399000 ; 
Paeme « 012 21 ee ne ele = ; se a eee hee, 
END OF BITONS 00401000 1 
PROCEDURE NEXTITEMS 00402000 | 
: N 00403000... i 
WRITECP)3 00404000 a 
WRITECPLDBLJ STARS); 00405000 @ 
ND3 eres 00406000 Me 
PROCEDURE PRINTMCPOPTIONS} 00407000 ‘\e 
BEGIN 0c408000 iy 
WRITECPCIDBLIsMCPRHDRoLEVEL*SUBLEVEL SZ 00409000 ae _ 
FOR TiS13 2015S oto 2e deb sS reba T obo Goi Ball wide lOri6silel2 OO 00410000 3 
IF BITONCMCPs47"1) THEN WRITECPsMCPOPTLII)3 00411000 . 4@ 
WR Ca etl ng tee ae ee OO OO 0 O28 it tt ee Nl ashes Go 7 tee Ee 4 
END OF PRINTMCPOPTIUNS3 00413000 1e 
DEF INE DATE =(119)#> 00414000 i 
Ree One ae ae SOC eA Of pe Benet OMY SOOO oy es 2 oe pete ee eS 24 
XCLOCK =(4121)#3 00416000 le 
BOOLEAN ARRAY MOCONLO!7]3 00417000 i 
____INTEG i ie on cee eae tes 2 
ARRAY RTDL03533 00419000 1@ 
DEFINE TIMEANALYZED = ITDCO]#> 00420000 i 
DATEAN sl Lie 42 esta aces eee 30 
TIMETAKEN = 1TOC2)#> 00422000 
DATETAKEN = ITOC3I#, 00423000 
_______ TIMELASTH = ITDL4I)#, 00424000 2 
SINCSLASTRL = ITDCSI#; 00425000 
MINUTES = ITOC6)#, 00426000 
se CN ai Tre Oe OURS P OOO ee - 
DAYS = ITOL8) a, 00428000 
YEARS s 1TOC91#3 00429000 
DEFINE DATX = RIDLOIM, 00430000 > 
XCLOCX = RTOCLI#, 00431000 
CLOCK = RIOC2I)#, 00432000 
TEMP = RTIUC3I# 00433000 
KINDS & ATDC4)#> 00434000 
MCPVERSION = RTDC5)#3 00435000 
FORMAT OUT FMXXC"DATE ANALYZED "sl2e"/™ eT 2e"/ "elas 00436000 
"TIME ANALYZED “sass T2e%2 se To)5 00437000 
Xi C"™MCP VERSION NUMBER “»I2/ 00438000 
try A A we see Ad " 004 9000 
"TIME TAKEN eTOe "E> 120" e 12)» 00440000 
XIMARKXIC "MCP aa NUMBER "pALPAw/ 00441000 
“pA N * ane" a"/"st2 7 00442000 
"TIME TAKEN TeL2e"s"sloe"i"e]2)s 00443000 
FMX2CTIME OF THE LAST FHALT@LOAD “sT2a"i%sToe"S"sI2)» 00444000 
SYSID("DUMP TAKEN ON SYSTEM “sAl)» 00444100 5 
—FTAPDSK(CAGs" FILE CONTAINING DUMP IS "PALS AOD"/"o ALD AGIs 00444200 55 
FCOMVAL("COMMON VALUE USED IS "F15), 00444300 sj @ 
FANALC"ANALYZER VERSION@“"sAd)o 00444400 
@ @ 
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FMX3C"TIME SINCE LAST HALT*LOaAU “sles sMsTeatetsl2)3 00445000 
FORMAT BADBED.(C eae ese ws BAD 8e0 ENTRY weet haa) 00446000 
ORMA BADD A "RAD A AKEN bbs N0447000 
BADXCLOCK ("BAD TIME TAKEN soooe)s 00448000 
BADELOCR CABAD TIME OF H/L)3 00449000 
ORM A RAD R PA F3 ON OoO450000 

PROCEDURE TIMES SR ERMTECR PSSST 00451000 
REAL WHEN; INTEGER SECeMIN*S HRS? 00452000 

5 erer: O00 REG er See ee 
INTEGER T3 00454000 
IF WHEN LSS O OR nba Gite 5184000 TREN HRSt=MINISSECI=100 XOVERFLOW 00455000 


a WH ry 


INTEGER TABLESLAC3 
A OK»: N 


Z UTILITY PROCEDURES 


REAL PAD CEDURE OCTALCNI34 


INTEGER NGS 


rl A D 


ui 


KS BONO 


QR A 


% Ne Piieeane S@ THAT IF N CONTAINS AT MOST A HALF WORD THEN 


OR MA 


HRS!=T DIV 2160003 00457000 
MIN?=T7T DIV 3600 MOD 603 00458000 
SECt8=T 60 MUD 605 EWN 10459 a 
END OF TIMES PROCEDURE; 00460000 - 
PROCEDURE DATESCADATEsMONTH*DAYs YEAR )3 00461000 
A ADATES 22000 = 
ALPHA ADATES 00463000 
INTEGER MONTH*DAYS YEAR 3 00464000 
_.___ BEGIN 00465000 00 
REAL YoeDsaMs 00466000 
LABEL ONS 00467000 
______..______ ARRAY DAY J3 OO468000 
STREAM PRUCEDURE CONV CYEARSDAYSDAT D5 00469000 
VALUE DAT 3 00470000 
BEGIN Se eerste Rae Fe ee SLOT Ray eee ESRC 
SIt= LOC DAT; F 00472000 
SI t= SY +433 00473000 
a! I t= YEARS DS t= 2 iG 474 SiteMap 2D a Oe eae St 
DI $= DAYs DS 33 3 OCT; 00475000 
END? 00476000 
DA AB i O0477000 pa das senate Reo Ee ial BN I ne A 
043145990 ,120 41514181 »2125243)27 35304) 334) 00478000 
CONV ee eee) 00479000 
Me 30 Weee nee OOSBOOOO 
BEGIN 004861000 
IF D =60 THEN 00482000 
B K 00483000 
M t= 15 GO TO 8N3 00484000 
ENDS 00485000 
FD > 60 THEN Di sdeds 00486000 
END ‘ 00487000 
FOR M $= 0 STEP 3 UNTIL 411 OG 00488000 
erect { A G THE. Q 4 
ON: , 00490000 
MONTH t= ay 00491000 
M=Q = SE 4% AHEAD Poti me osc 
DAY ?= D = SarTRece 00493000 
YEAR 32Y;3 00494000 
ND OF PRO IRE OA R 00495000 ee 
INTEGER MAXMODsMAXCOR} 004596000 
me 00497000 


00528000 
00529000 


OOS 30000 


00531000 
00332000 


S500 000 
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® WILL BE THE OCTAL REPRESENTATION OF N 00534000 
OCTALI=N, weal N>7 THEN OCTALCNeC24t21)) ELSE 020389839] 00535000 e 
REA A PROCE R AT KLPPiINGs MA r] 00536000 ere ee [ato TOE Ae EN EE a 
VALUE SKIPPINGSMA ANYS % 00537000 
% RETURNING THE 7 OR LESS CHAS REQUIRED 00538000 1@ 
N 239000 00 > 
SI2sAT3 STiccT KoKTePINGs 00540000 : 
DISsLOC CHRSZJ DSt=s LIT"O"S ULE=DI "MANY; 00541000 |@ 
DSS =MANY R$ ee 20004 2000. 2 = 2 oe oy i 
END CHRS3 00543000 ? 
INTEGER poet ue HIHALFCLOCI3 00544000 |@ 
pes ot spe a ear OO SMO OOs 25 Bee eat, 9 
INTEGER "COC ) % 00546000 
HIHALFCHRSCWELOC+ROM*LOC4CULI# 0049 00547000 @ 
NIEGER PROCEDUR OHA OC); 4 00548000 i 
VALUE LOCs 00549000 : 
INTEGER LOGE > % 00550000 @ 
DHALF &sCHR Oe eROWs EOC, COL 1540.4 )3:-% 55 re tect Ae kt Mee es 18 
BOOLEAN STREAM PROCEDURE FLGBIT(WORD)} 005520006 16 
BEGIN 00553000 @ 
SIL32WORDS &% Pe. 5 Le > 1 3610 9 ana a ee ie ae ee eee see ee eee 
IF SB THEN TALLY#=213 % 00555000 "9 
FLGBITESTALLY) % 00556000 . 29 @ 
00557000 eee eae Ree igre eee 21 


ARRAY TATSRONs LASTROWTO? 1113 & 

SAVE ARRAY SEENEL ELEC I 

ARRA 

BOOLEAN “NOTPRINTCALLo AVALNKD 

BOOLEAN STREAM PROCEQURE COMPAREWORDS(SsDew)3 


BEGIN 
LABEL XIT$ 
S[s=353 $=); 
WCIF 6 SC NEQ DC THEN JUMP OUT TO: xXTT 3 
TALLYts13 
XITIECOMPAREWORDSS=TALLY3 
END COMPARING WORDS3 


% . 
DEFINE PRINTCPRINTI,PRINTO)=IF NODUMP THEN ELSE 
PRINTCORECPRINTLsPRINT2) #3 
z 
PROCEDURE PRINTCORE (FROM, TQOG)3 
VALUE FROM,TO0s & 
INTEGER FROMsTOUs 3% 


N A 
DEFINE FORI a. FOR I t= O STEP 4 UNTIL 21 DOM & 
DEFINE OCTADE = (OS#=3 RESETA3CIF SB THEN OSteSeET ELSE 
OStSRESETASKIP SBHI# §. 
STREAM PROCEDURE BUILDCFRUM>LINE*XAsNAsXBeNHONCo AL» Ad); & 


VALUE FROMsNAsNBoNC pALsAODS & 


BEG N DI¢SLINEsSLts_Oc FROMSSTssST+Ss SKIP 35p;3 
5 QCTADE3 DS :# LIT " "5 AUC SI t= KA} & 
NACDSSSLit® "F2COS#SLIT* S38 GCTADE)IIS12=xXBs 
NBCOS3=LIT" m5 2¢0S4=LIT" "36 OCTADE))3 
NCCOS2S19L IT" "D3 OSSFLIT" "ds & 
ALCSISSXAsSNACDSSRLIT" "305258 CHR)S &% 
STiSxBsNBCDSteLIT” “"sSDS%5S8 CHRIG & 
NCCOStS9OL IT "93 OSte6 LIT * "93. END BUILDZ * 
STREAM PROCEDURE MWC A»B)3 BEGIN SI 1#Ag01 48630818 WOS END Vs 
Nd. 


STREAM PROCEDURE EXPAND(ALINEsBLINEsN) 3s VALL 


eg eee et cree teas : 
00559000 ad @® 

i" 24 
009259100 2 e 
00560000 ee 
one 000 2 


00562000 
00563000 
005604000 
00565000 
00566000 
0C567000  _—T 
00568000 
00568100 
00568200, iH 
00568300 : 
00568400 . pe 
OO0369000 z 
00570000 
00571000 
OO O00 
00573000 
00574000 
00575000 
00576000 
00577000 
00578000 
00579000 
00580000 
00581000 
00582000 
00583000 
Ou584u00, 
00585000 

00586000 

09586100 
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r) @ 
| BEGIN DI$SBL INES 18CDSsS6L1T" "23 OIESBLINES DLt=sD1+73 00586110 
@ SIPSALINES SI#SS1+73 00586120 @ 
2 ADE: ; 5 eo 
1 END EXPANDS 00586140 
@: BOOLEAN MATCHsFIRSTsLASTsSTARDS 00587000 
a eee INTEGER I»R»STARCOUNT 5 os ae eee eee eee ee oe are eee eet 
4 BOOLEAN AL»AC3 INTEGER ZoZ1s % 00589000 
@|: LABEL ENITLINES 00589100 
6 F_DUMPALPHACNLY [HEN ALt=1R “LSE OO590000, = 
7 IF DUMPALPHAOGTAL THEN AQtaTRUE ELSE 00591000 
@| IF NOT DUMPOCTALONLY THEN 00592000 
9 : IFCIs#AREATYPELIF NOTPRINTCALL THEN LINKTYPE ELSE ss 05939000———i—‘“‘“‘;™C~™S 
no TYPMAX41]) GTR QO AND AVALNK THEN ELSE 00594000 
or IF Ts=aBS(1)=3 THEN ALe*TRUE ELSE 00594100 
n2 IF Is2 THEN AO*2TRUE; 54 
n Ziss(ZtalF AL THEN 12 ELSE IF AL?sA0 THEN 4 ELSE 699143 00594300 
r IF NOT CAL CR AQ) THEN AGS=TRUES . 00594400 
1s = H = 2 ae 
i STARCOUNTS=IF 2312 THEN 114 ELSE IF Z=6 THEN 120 ELSE 1193 00996000 
eo” FIRSTS TRUEG 00597000 
ns TOO? li i ; 005 eee eee 
9 IF TOO>FROM THEN % 00599000 
eo” po x 00600000 
1 
2 IF NOT LAST t= (TOG = FROM LEG Z) THEN *® NUT LAST LINE 00602000 
@ BEGIN 00603000 
; BEGIN 00605000 
@ IF FROMsROW=(FROM*+2).ROW THEN MOVE CMU FROM.ROWsFROMeCOL JsLASTROWSZ) 00606000 
pT] 5 D104 Oo 8 F 0 Teteaege ees ce eee ee eee 
. FORI MVCMCCFROM41) ¢KOWs(FRUM+1) eCOL)» 00608000 
@» LASTROWLII)3 00609000 
‘ ARN: sf as O06é1O000 Sees, 
IF Z=12 THEN GO EDITLINES 00610100 
er. FIRSTISFALSE3 . 00611000 
p Br Na Se a ee 
a ELSE 00613000 
°: BEGIN 00614000 
pe IF_FROM,ROW=(FROM+Z) ROW THEN MOVECMEEROM,RUWsFRUM*CULJ + THISRUWSZ 00615000 _ 
p ELSE % 00616000 
@ FORT MVCMECFROM+I) «ROW*CFROMSI) eCOLID> 00617000 
; THISROWL I) 00618000 . 
IF CMATCH?=CCMPAREWORUS(THISROWLOJ>LASTROWLO]*Z)) & 00619000 
@e AND NOT STARD THEN 00620000 
2 N OO62Z1000 sv 
3 . IF DOUBLESPACE THEN... 00622000. 
@ WRITE CPLOBL ] »STARZsSTARCOUNT) ELSE. 00623000 
WRITE CP» STARZ*STARCOUNT)3 hae 00624000 i” 
| STARD?=TRUES 00625000 
Or ENDS 00626000 
IF _NGT MATCH THEN 00627000, ——————is 
BEGIN . 00628000 
@} STARD?SFALSES. 00629000 
MOVECTHISROWsLASTROWsZ)3 3% 00630000 
END3 | 00631000 
@; END} 006432000 
END3% IF NOT LAST 00033000 _ 
If LAST SOR" : 00634000 
@ N8T STARD @R 00635000 
‘ NOT MATCH THE 00636000 
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BEGIN 00637000 
ECITLINE? 00637100 8 
R= MIN OMF ROM) 3 2 sc ON ass elt itp ied 8 ew 
IF CFROM+R) ROW NEG FROM.ZROW THEN % CROSS KOW ROUND 00639000 . ' 
BUILDCFROMsALINEC *J*MCFROM.ROWsFROMeCOL IJ9 94 2"FROM,COL» 00640000 1@ 
Se es M F eee OO G41000 00 3 
Z"R ELSE OsAL» AU) ELSE & STILL IN SAME ROW OF Mm ARRAY 00642000 : 
BUILDCFROM sALINEL@]>MCFROM*ROWSFROM, COL] oR» 00643000 |@ 
MLOsQ]»> 2 THEN Z*R - Os ALsAQ)3 & OGG 000 Se wats . 
IF Ze12 TREN IF FIRST THEN 00644100 ; 
BEGIN 00644200 |@ 
; St a _ 00644300 = ’ 
IF DONTPRINTLINKS THEN ELSE 00644310 1@ 
BEGIN 00044320 ‘ 
¥PAND CA A *REAL CAVALNK) )3 _O06444unn ss Fi 
WRITECPCDBL J+ 18+8L INEL#I)3 00644500 is 
ENDS 00644510 |@ 
ND 00644600 i 
IF DOUBLESPACE THEN WRITECPCDBLI>» lesALINEL*)) ELSE 00945000 ar 
WRITECP#18° AL INEC*#)])3 00646000 ik 
Sens ; . =i OOO W700 08s ci ee ee SS : 
END UNTIL (FROM t= FROM + Z) GE@ TOQs &% 00648000 1@ 
WRITECP)3 & 00649000 ie 
NO PRIA ; NO GSO0 G0 oo oe oe a 
FORMAT ITEMCA5 es = "s2(0exX1) 9 AS eX89)3 00651000 ar 
BOOLEAN PROCEDURE PUATADESCC(AT#WhAT)S VALUE ATS 00651100 ey 
, pe . ° . a 24 
ARRAY LINECO%14)3 00652000 ; e 
PROCEDURE DISPLAYITCWHATs*RANGEs ADR) 00653000 i 
VALUE IGE s pea emt eee 
INTEGER WHATS ADRS 00655000 10 
BOGLEAN RANGES} 0065600C i 
INTEGER HoLleT3 00658000 1 
BOOLEAN PP; 00658106 ie 
TisIF ts 20) T WHAT ELS ; 0065 LT, ate dens roca ce ahaa ct eS te 
IF NOT PP THEN IF PDATADESC(T»H) AND H,(8310] NEQ@ QO THEN ELSE 00658600 34 
RANGES FALSE} 00638700 3 @ 
WRITECLINELC*¥ J], ITEM*sOCTALCT),» 00659000. 36 
OCTALCHS#HIHALFCT) 2» 00660000 ay 
OCTALCLE=LOHALFCT))>» 00661000 | a @ 
_ IF RANGE THEN OCTALCH,C32t10) 44 .CF™1) 00662000 . 39 
ELSE " ")3 00663000 ag 
IF 129SWHAT AND WHATSPRTMAX THEN 00664000 «|@ 
MOVE CNAMSENAMECWHATJeCF J» LINEC4)» 00665000 a2 
NAMECWHAT).FFQ3 00666000 4 
IF SGLTOG THEN WRITECPs17LINEC*]) ELSE 00666500 ha 4@ 
FPP THEN _- 00666900 49 
WRITECPLDBLJ*°17*LINEL¥I)3 00667000 16 
END DISPLAYITS 00668000 «| @ 
DEFINE DISPLAYCOISPLAY1»DISPLAY2)5= 00668100 
DISPLAYITCOISPLAYI»sDISPLAY2 00) #3 00668200 es fi 
BOOLEAN PROCEDURE OPERANDCAT#WHAT)3 % 00669000 5 @ 
VALUE AT# & 00670000 eae 61 
INTEGER AT3 & 00671000 5 
REAL WHATS % 00672000 «| @ 
BEGIN & OU 6739000 iii ele le nln cn Be 
INTEGER ReC3 & 00674000 55 
IF FLGBIT(MERISAT, ROW) ISAT COLJ) THEN & 00675000 | @ 
QPERANDSSFALSE % 00676000 5 
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ELSE % 00677000 
BEGIN & 00678000 ® 
OPERANDiSTRUES & 00680000 
ENDs & 00681000 
eo ie PERA hate ee tae at 
BOOLEAN PROCEDURE DESCRIPTURCAT»WHAT*KIND)& 00683000 
VALUE ATS 00684006 
a2 3 Ss tt = ee OOO BOO 05 is as Se 
REAL WHATsKINO: 00686000 
BEGIN 00687000 
IF CKINDPSOCTALCCHRS(MLRE SAT eROWsCE=ATeCUL] 9001)))2>"40" THEN 00689000 
BEGIN 00690000 
IRLSTRUES 00691909 
WHATE®CHAS(MERs Clele7)3 00692000 
END; 00693000 
END DESCRIP ee ot Pes 
BOOLEAN PROCEDURE PUATADESCCAT»WNAT)3 00695000 
VALUE ATS 00696000 
CNT E OOO ee eh ee eS 
REAL WHAT$ 00698000 
BEGIN 006$9000 
H ‘ —_ OO700000 
IF DESCRIPTORCAT*WHAT»KIND) AND 00701000 
KIND="50" THEN 00702000 
See ae POA TAD SC Ea a a 3h ss ge a a OT OBO i nee 
END ‘ 00704000 
BOOLEAN PROCEDURE CONTRULDESCCATsWHAT)3 00705000 
Vv Cn Re 
INTEGER ATS3 00707000 
REAL WHATS 00708000 
Z R ara 9000 
INTEGER TYP3 00710000 
CONTROLDESC2 SDESCRIPTORCAT#WHATs TYP) AND 00711000 
4 = A r) OG RGF © Saree eee 
TYP, (4>5%1]203 00713000 
END CONTROLOESC3 00714000 
INTEGER MINLNK»MINBAD »MAXBAD»MAXLNKS & 00715000 
BOOLEAN NEEDCHECKAVAILNKSS FALSE IF OPMT DUMP 00716000 
ARRAY COMMTCLO!1913 BOOLEAN COMNT; 00717000 
PROCEDURE MCPENTRIESs 00718000 sodas 
BEGIN 00719000 
SGLTOG?=TRUES 00719100 
DISPLAY(BED»FALSE)3 | 00720000 
DISPLAYCPRI*FALSE)D 3 00721000 
DISPLAY( JAR*# FALSE D3 00722000 
DISPLAYCINTRNSC oFALSE 23 00723000 
DISPLAY(SHEET»FALSE)5 00724000 
DISPLAY( YGBNUMsFALSE)3 00725000 
DISPLAYCNFO*FALSE)$ 00726000. 
DISPLAYCISTACKse FALSE); 00727000 
DISPLAYCWAITTQUEsFAaLSE 3 00728000 
DISPLAY CPIMIXe FALSE )3 o0729000 
DISPLAYCFEMIXs»FALSE)3 00730000 
SGLTOGI=FALSE; 00730100 
END? 
PROCEDURE GETPRIENTRIES3 00732000 
BEGIN 00733000 
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REAL ADRR3 00735000 
INTEGER IoK3 00736000 8 
ARRAY MIX(Q: : Sa aes Oe PO eee Fe ey st ee Pl, 
FORMAT PRTCUTCX10-"PRT LOCATIONSS"/ 00738000 ! 
X20 e "MIX" > X20e"PRTN/) 5 00739000 Borate Ry, 1@ 
i) oe PROO0G so oo = : 
FORMAT BADPRT("xxeeeee*BAL PRT DESCRIPTOR&tawaeeen) 3. 00741000 . 
LABEL XIT3 00742000 |@ 
: SOOTHS000 22 25 ae : 
IF NOTCPOATADESCC(PRT»L) AND LyCF NEG © AND L.C8tic) GTR O 00744000 ‘ 
AND 4.08810) LSS 41) THEN BEGIN 00745000 |/@ 
MIXMAX 220 NEDMIXMA} —___________FOR LINK ck oo746000 ® 
WRITE (P»BADPRT)S GO AIT ENDS 00747000 Je 
ADRi= ae as 00748000 " 
A Oo74gogg. i 
Kime} 00750000 is 
MIXMAXteWCe43 00751000 @ 
OR Ite 1: STEP UN wee 0. BEGIN 00752000 : ba 
IF PDATADESCCADR+! »PRTROW) THEN ELSE PRTRUW15G3 00733000 
IF PRTROW =C THEN 00754000 i@ 
O TO NEXTS (S100 B= 5101613 eee eet te ane ae ty 
Ktskel3; 00756000 i 
MIXCKI]te I3 % SAVE MIX NUMBER 00757000 9 @ 
t2Ks tj Reset aie eee al 
NEXT? 00759000 2 
ENDS % OF FINDING PRTS & VALID MIXESs 00760000 21 @ 
WR 61000 7 24 
WRITECPsFisFOR Its0 STEP 1 UNTIL K CO OCTALCMIXCEI], 60339159995 00762000 28 
XIT3 00763000 | @ 
: “$3 eee re 
PRUCEDURE PEARANCE CLE VALUE PRTLGCS INTEGER PRTILOCS 00763020 sa 
BEGIN 00763022 1 @ 
NTEGER LOCsSIZEs]3 007630 Bae en Stet oe ee it 
FORMAT FCX2eTd9X222C09X1))2 00763026 
DISPLAYCPRTILOCs TRUE DS 00763028 1 @ 
IF PRTLOC GE@ 129 AND PRILGC LES PRIMAXx THEN Go'63030 ie 
IF PDATADESCCPRILCC*LOC) THEN 00763032 
IF SIZE%SLOCel8%1C] NEG O THEN 00763034 3@ 
F_LOC?=LOC,CF GTR O THEN O07 O30 96s jo) eo i ai 
BEGIN 00763038 5 
FOR Iss STEP 1 UNTIL SIZE*1 DO : 00763040 : 4@ 
WRITECPsFe Te OCTALCHIHALFCLOC*I ) *OCTALCLOHA F( OC+1))23 00763042 _ . 39 
WRITECPCOBLJ)3 00763044 ‘ 
END3 00763046 /@ 
END DUMPARRAY} 00763048 , _ | 
PROCEDURE OUMPCESSPOGL; 00763100 43 
BEGIN | 00763105 | ! 4@ 
FORMAT HOR("D25=ABNS ABNORMAL /"G24"RR =READ READY" 00763110 49 
"O23=BFLSBUFFER FINAL LOCATIUN"/ 007631415 ‘9 
"O21eWR =WRITE READY"/"b20*8SY=BUSY"/ 00763420 \@) 
"DLS"NTRSDTCU NuT READY"/ 00763 7 aa 
"NOTE SBSY AND NTIRSADAPTER/DTTU NOT READY"///)3 ~ 00763130 . bi 
FORMAT WHATFILE( ®CORE P@RTION OF SEPTIC Ae ble hers )3 00763135 of @ 
REAL IeBsFROM$ BOOLEAN a 00763140 Peet 7 
FILE SEPTIC DISK SERIAL (2960sMYUSE= INPUT); 007631445 6 
DEFINE BUMPI = Lt=l+i#3 00763150 1 @ 
D N NISP=IN Hs 0076 fires = a 
ARRAY CCaNANCOES)3 00763160 55 
LABEL LOOP sEGys 00763165 , {@ 
REAM PROCEDURE INITCA)3. 00763179 2: wy, 
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BEGIN DI&%sA3s DS%=32 LIT 
"PASS INTACT. INTWRITE REAO "3 
ND N 3 
STREAM PROCEDURE FLL CAs BsCoDeoE)s VALUE beC503 
BEGIN OL8sEs 15¢0S3S8L1T" "23 Olsses Sltaa; 
DSitewOS;: SilsraetQ 7 tsDl¢+ 


2CDS*=2NE CS ATTNIFSOLFRVIMSAOStEPILLI DL SHAS OSSSLIT"/"); 


DIt=DIl-4;3 eae eeu "5 
Ss t<S * ’ % 


IF SB THEN DSt=3LIT™ABN™ 71g DIts0I4+33 SKIP SB; - 


OLteO14+33 
DIts01+35 


TYRR " ELS t=D1+ $ 


5 


2025 
ap24 


IF SB a DSt=3L1T"BFL™ ELSE DIsS=b1+33 SKIP SBs %D23 


is 


SKIP SBISTONGRE p22. 
IF SB THEN DS#s3LIT"wR " ELSE DIteOL+3; SKIP S83 
DyisPl+443 
IF SB THEN pSts3L]7T "psy" ELSE DIt=UI+33 SKIP Sb; 
Olt=Pl +33 


IF SB THEN DSt=3LIT"NTR” ELSE D1IteDI+33 %018 
END FLL3 | 
BEGIN INTEGER Leu 
STREAM PROCEDURE FF(AsB); 


BEGIN t= 


aCDSte2 DECS OSteLIT "tw )5 
DIveDIe 43 OS8S82#5 LIT " "5 


FOR 1%=3 STEP “4 UNTIL O OC 

BEGIN CCEIJitsyisa MOD 603 
AL=A 603 

END, 

FFCCCsLINEL7I)4 


BOOLEAN STREAM PRCCEDURE GLUNKCA); 


‘BEGIN SIS8sA; IF SCE" " THEN TALLYt%=13 


NKS=TA 
END GLUNK3} 
PROCEDURE MMM(Bol 3 VALUE Bs REAL IB; 
BEGIN REA ; 
STREAM PROCEQURE MOVECA#B)s 
BEGIN SIls=a3 DIs=B; 


0 esi " as 
IF Ste"e" THEN. DSt=cHR ELSE DStRCHRDS 
END MOVES 


al; #0 PL EIN adh te © 


MOVECINTSPLBUMPI Jeb INELC1)3 
WRITE CP*BeLINEL *))3 


ARRBXLAARTINAAATA SAAS TART 
LET RO AaD ee 


(T ‘LT , L384) THEN _ 
IF PDATADE SC( ARGH »F ROM) ANDO FROMe(8: 10] 128 THEN 
IF OPERANDCCFROMS=F ROMs CF)*le7s1) TREN LOSSTRUE 
QO TO £0 “0 3 ; Ows 
WRITECPCPAGE])3 


WAITECPrWWATF ELE st.C61636195 


OBE ATVLARGH? I RME 


2021 


2020 


0.0 £4 e 


00763175 
00763160 
OO fy 

00763190 
00763195 
OG « ore: 
00763205 
ree a 


00763920 
00763225 
76 
00763235 
00763240 


00763250 

el logs 

00763: 

00763265 

00763270 

00763280 

00763285 

00763295 

00763300 

00763310 

ed 

OOF & 

00763325 

00703330 

00764 

00763340 

eee 

ze + 

00763355 

00763360 

olera:' 65 
00763370. 

00763375 
00763380 
00763385 
007603390 
00763395 
00763400 
00763405 


00763415 
00763420 
reWa 
00763430 
00763435 | 
0076. 0 


00763445 
00763450 
OC 763455 
00763460 
00763465 


OOS 6 8 


68 5 8 8 & 
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+ ry 2) y a 55 ~ Rs 


: 


n Aum A An A ee 7 


WRITE CPsHDR)S 
GO EQUJs & VOID TRIS CARUY TO DUMP SEFTIC DISK FILE 
a a "S$ - P . " Lu - : 


WHILE LO pO 
BEGIN NERONSED TRCAEU ATR TOE AE TEEN Oe 1203 


IF CBtSINTSPCII).69%°9350 THEN GO TO EQus 
FLLCNAMCB,C722)1,8,6924)]58,01424] 58, (2131230 INEDS 
TIM¢ NTSPCBUMPII,C Bi30JeCCI3 
WRITE CPs 1 O+LINEC a) )3 
IF (BisB, £33715) 20 THEN 
BEGIN WH RB UIR 14 

BEGIN WNMC LOOT)? bisb"143 END; 

MMM(BsI)3 


ND3 


WRITECR)S 
IF 1459 TREN 
IF GLUNKC NTSPLBUMPL) THEN ELSE Go TO LOOPS 


ENDS 
EQJ: IF LO THEN 
BEGIN CLOSE(SEF 


I¢)s LGtsFaLses 


IF OPERANDCFROM+125e1) AND I NEG O. THEN 

If OPERANBCFROM+62s1) AND (I#o0 OR 1264) THEN | 

2 i OM tx RL 
IF (B3s512"(Rt=FROM,CUL)) LSS (1500) THEN 
BEGIN MCOVECMEFROM.BOWsK I, INTSP eB) 5 


END ELSE 8:20; 
MOVECMEFROM,ROW/RJ*INTSPCBIJs1)3 
‘< 
END$ ENDS END$ . 
See nee STREAM PROCEDURE MCRONTCA)3 VALUE As 
REG tal 
7UIF TOGGLE THEN TALLY I= ‘TALLY+1 ELSE IF SC NEQ "0" THEN 
‘ i a a tae MCPENTSSTALLY> 
tN a 
INTEGER "PRTCODES % SET TO Grit QR 2 bY CHECKPRIFILE 
PROCEDURE DATIME3 
BEGIN INTEGER AN 
“STREAM PROCEDURE PRIFILEMESS (Psi oC )s VALUE C3 
BEGIN LABEL MAYBE »BAD sFIXsXITS 
_ SIisp yes = ‘ 
Clsaci+c3 
GO XIT3 % 0 
GO MAYBE; % 
GO BADs % 2 - 
MAYBE 1DSta9LIT"( APPEARS “SE GO FIX; 
BAD DSimiar rt" i 0 


FIX tDStelOLIT"INCORRECT)"3 
XIT sOSss3ea_rr" 5 


ND PRIF MESS 3 
IF NOT COMMON THEN BEGIN 


IF NOT OPERANO(3>MCPVERSION) THEN WRITE CP*BADCELL3)4.. 


FLGBITCMEDATE ROW, DATEsCULJ) THEN 
WRITECPsBADDATE) ELSE 
BEGIN 
DATX 8 MCDATE «ROWS UATE,COL];3 
DATE SEDATX#DATETARENADAY $1 ¥VE ARS 24 
END4 °% OF DATE : 
IF FLGBITCMEXCLOCKeROWs XC OCK.COL} vy. THEN 


00763475 


00763480 e 
ore fH a ae nn tate i le ae A De Se 
00763490 ; 
00763495 , :|@ 
00763500 3 
00763505 © . 
00763510 |@ 
00763515 $ 
00763520 ? 
00763525 ; |@ 
7 = : 9 
00763535 
00763540 |@ 
RLOHOM dio So: hs KO SA OCS tee 2 
00763550 "3 
00763555 wW@® 
SLOTS 5-118 ee en 1 
00763565 "6 
00763570 |® 
OLDE I 8 2 ae none a a ee a eee a 
00763580 1d 
00763585 2 @ 
0076 BO a ee ee aS A rete Dee! athe: he hc het Pd eos oe Re aoe 21 
00763595 2 
00763600 21 @ 
a Bs ae ed ee 24 
00763610 ; e 
00763615 26 
\2 
00763625 1@ 
00765000 ba 
0) GHO000 ja iat Be a i 
00767000 Ne 
00768000 a 
OO OO AM a tains eS nhoed 
00769900 
00770000 1@ 
i 
00771100 ) a7 
Q07 0 39 
00771115 40 
00771120 @ 
00771125 42 
00771130 : i 4 
00771135 : 4@ 
oor? | aT eee, 45 
00771145 5 
0077115C «1 @) 
00771 a8 
00772000 as 
00773000 —C s|@ 
Oo774000,———=s . 5] 
00775000 : 
00776000 ol @ 
00777000, 
00778000 55 
00779000 : cd @ 
00780000 e = ; 
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5 


RY 
.) 


WRITE (PsBADXCLOCK) ELSE 007#1000 
ae 00782000 
783000 2 
ETRE CT TREAT TEECORT ETT TSF 00784000 
ENDS % OF XCLOCK — 00785000 
____ PRTIFILEMESS(CPRINAME*LINEsPRICODE)s = OO 
WRITE CPs 8sLINEC*I)),3 00785500 
WRITE CPsFANAL » VERSION)3 00785550 
WRITECPe»FTAPOSK>s ETYPEsTOMFIp.fo: TUM 00785600 
Ss TOF ID.L626)s TDF ID): 00785610 
WRITECPsFCOMVAL*REAL CCOMMON) 13 00785700 
WRITECP»X1MAR eIF Bs=( Li sMmCPCNTCMCPVERSION) GIR 6) Oo786000 we 
THEN MCPVERSION,£(6%6] ELSE " "» IF & THEN 6 ELSE IF Is0 00787000 
THEN 1 ELSE JT» MCPVERSTON*DATETAKEN*UAYS> YEARS? 00788000 
TIME TAKEN MINUTESs SECONDS)Z 000000 [PB POOO 
END3 . 00790000 
IF SHAREDISK THEN 00790100 
IF OPERANDCSYSNO, I. "g U0 @ 3 pest a Bl Ate 
WRITE CPs SYSIDeI4+17)3 00790120 
DATESCTIMECO)sDATEANALYZEDs DAY Ss YEARS) 5 00791000 
1 
“ARITEC Po FUXX» DATEANAL YZEDe DAYSs YEAHS» TMEANALY ZED#HINUTESe SECONDSDA 007930006 
IF COMMON THEN WRITECP)3 00794000 
a TF fA SN oe eens 
IF FLGBITOMC CLOCK. ROW*S CLOCK eCUL J) THEN 06796000 
WRITECP*sBADCLOCK) ELSE O0G79700C 
GI at Be OOO Out Aedes 
CLOCK 2 MUCLOCKeROWsCLOCK.COL)3 00799000 
IF XCLOcCK LSS CLOCX THEN XCLUCKSsxXCLUCKX451840005 00800000 
WRITECP*FMX2eTIMELASTHL eMINUTES* SECONDS) 3 008U2000 
Veneer he ete nee eae CONE) 008G300C 
WN P [DA x (NCSLAS PONDS) 2 008 0.00 peat, Petes, Se ae 
END $ ®OF CLUCK . 00805000 
ENDs 00806000 
ND3¥ OF DA OOBO7OOO 
PROCEDURE PRINTARRAYROWCPRTLOG? IWX)» VALUE PRILUCs INXS 00807100 
INTEGER PRTILOCS INXS 00807110 
R A O08 a 
INTEGER LOCsSIZES 00807130 
BOOLEAN TOGseCOMSAVE sDBLSAVE 00807140 
A 2 sbi ikee 25 
STREAM PROCEDURE FIXLINECLINEsIWX)s VALUE INX; 00807160 ‘ 
BEGIN LOCAL AsBs 00807170 
STPFLINEs4(STtsST+h 3 00807180 - 
32CIF S$Ca” " THEN JUMP. OUT ELSE SItsSie¢1)3 00807190 
AtaS73 DItsAs OSt aL ITC", Abeors . 00807200 
SI3s_Gc INX$ DSts4 DECS Bts0T3 0080 Oe ee ee 
DIisas DS8=3 FILLS DIEsBs. 00807230 
DSts3LITs x)"; 00807240 
ND FIXLINES 00807250 ice 
IF TOG?=BOOLEANCINXe (4213) THEN 00807260 
DISPLAY CPRILOCs TRUE DS 00807270 
t=ABS X)3 00807275 
COMSAVE$=COMMONS 00807280 
COMMONS =F ALSE3 00807290 
DBL SA =NOuB PA ; Q08¢ 9 ei Ss 
DOUBLESPACE S3TRUE} 00807300 
IF PRTLOC GEQ 129 AND PRYILUC LE@ PRTMAX THEN 00807310 
AGA LN ie 00 6 0 
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3 a y . 


oaonrwronrurns 


as 


IF PDATADESCCPRTLGC*LOC) THEN 00807330 
IF (SIZE'=L0C.[81101) NEQ O THEN 00807340 e 
0 HEN PRIA CSL i AXCOReL OC +5 0080; peat ae Sa eee tN 
BEGIN ee an ef ee ee 00807360 | 
DISPLAYITCPRTLOCs TRUESPRTLUC tel UC, CF+INX)S 00807370 1@ 
; —-OO8073980 9. 3 
WRITECPCOBL IJ sibSsLINEL*])3 00807390 le 
TOGt=TRUE3 00807400 : 
pc a SON A AN ee te ei 00807 O10 a on =, 6 
END3 00807420 Q 
COMMON! SCOMSAVES 00807430 |@ 
Nous PA =DB AVE 3 oS Rael ee ee NBO TRIS ee . 
END PRINTARRAYROWS 00807440 1@ 
DEFINE ee eee ee 00807450 a 
ARRAYRO}’ A ARRA m1); OO807460 ‘e 
DEF INE PASPRINTARRA¥S,PAROW=PRINTARRAYROWG? 00807470 9 
COMMENTS THE FOLLOWING PROCEDURE 1S INTENDED TO BE let To SuIT 00807480 rh 
ND . D RE QUIR RA _OOKO7AB2 Me 
EITHER 1 “OR 2 DIMENSIONAL» TO BE DISPLAYED WITH A MINIMUM OF EFFORT, 00807484 e 
IN GENERAL» A 3 CARD PATCH IS NECESSARY TO THE ANALYZERS ONE CARO 10 00807486 bes 
DEFINE 2 MEN Np ” “2 vk #00121000 aANUTHER TO NN OO8U74aR sss _ Se bs 
IN "FILLINFO",SEQUENCE #00165000» ANU A THIRD TO CALL BELOW ON 008074909 : 1@ 
conTN TanwAt COR "Baty FOR 1 DIMEWSITUNAL Annas OR ON 00807492 ie 
tp ARRAYROw"( OR "Py yt NR 2 DIMER y sR AY OCOB8O749M4 e 
NOTE. ‘THAT THE PROCEDURE WPRINTSELECIEDAKRAYS" IS CALLED ONLY WHEN 00807496 , a 
COMMONS163 00807498 el 
PR NU PRTA NARRA Sn Ns ts es i oh tae 5 et A A cht Sres e e 
BEGIN 00807510 1® 
INTEGER I3 00807515 i 
LF 4 Nee ee Nee, 2 
BEGIN 00807530 1@ 
WRTIEGR PAGE) 33 00807540 [ 
P A 0080 pads he One ease le Seer Tea fern Se, 0 
PACMEMASK)3 00807560 A 
PACQTIMES)3 00807570 1 @ 
PACSTATION)3 00807575 : 
FOR [t=O STEP 1 UNTIL, 15 DO PARUWCSTATIUN,I)3 00807580 3 
ENDS 00807890 2 @ 
NUMPCESSPOG rn O08 OT 899i So ye 3a 
END PRINTSELECTEDARRAYS3 00807900 4 
BOOLEAN BADCOMMENT 00808000 | 34@ 
FORMAT COMNTPAR(*@==PARITY ERRUR OCCURREO IN COMMENTS BLOCKese™)3 00809000 3s 
PROCEDURE LOAD; 00810000 40 
BEGIN 00811000 «|@ 
LABEL EQT3 00812005 42 
LABEL EFsPRsIGPAR; 00812010 4 
LABEL FLAG»PAR+BADTMeIGNOREPARS& 00813000. —; : lq ® 
FORMAT BADEOFC"@=-INVALIO EUF. AFTER BLOCK # "sl2)>, 00814000 | ; : A 
PRTFILEC"PRT FILE USED IS "sA1sAGe"/",A1 > AO9XB)e 00814100 ‘ 
PARERR ("#=s-[RRECQVERABLE PARITY IN BLUCK # "#I2)e 00815000 AV 
FLAGERR("**=FLAG BIT IN WORD ZERO UF BLOCK # "2123 00816000 ‘8 
ARRAY ALO?832]3 00817000 = 4s 
STREAM PROCEDURE MOVER( $¢0)3 00818000 | | @ 
BEGIN _ ce 00819000) 51 
Srs2S3 vul:=b;3 00820000 5 
16(DSt#32 WUS)3 00821000 «| @ 
END MOVERS 00822000 — a ee : 
STREAM PROCEDURE GETCOMMONCCOMMTsNDs 00822100 _ | 65 
BEGIN LOCAL xXeY4 LABEL XIT*HITsGETNUMS 00822110 oy o¢ aa sd @ 
@ °® 


ononn~s Dm THT FF WH — 


i=} 


= 
= 
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6 . 0 0 6 zy g 5 


7C2O0CTF SC="C" THEN BEGIN S1#=S]+13 
IF . THEN ae STt=Si+13 


=u T 


END PELE Slissiti END. ELSE SIlssS1r41))3 


0082213C 
008¢e2140 


00822155 
GO XIT3 00822160 
HITSI5CIF Sce"=s" THEN YUMP CUT TO GETNUM ELSE SItsSlej)s GO XIT#00822170 __ 
GETNUMSSIs:*SI4134 00622175 
DIt=lLoc xX; 0062218¢c 
0 Sc=" “N STS sSJ+ 0 ; 008 OO: = we ee 
SCIF SC GEQ “O" THEN IF SC LEQ "9" THEN 00822200 
BEGIN TALLYSSTALLY4+143 DS$sCRR END ELSE YUMP OUT ELSE YUMP OUT)s 00822210 
=TA pa aan Ee ee OO BO 2 99 Oe 

SIt=lLoc X3 00822230 
OIs=N;3 00822240 
XIT$ END GETCOMMONS 00822260 
INTEGER I3 00823000 
COMNT 3 =BADCOMMENTS=FALSES 00824000 
IF RELOAD THEN 00824100 

— _F ez ' * ; pote rt he aN 
IF MULTI THEN 00824200 
READ ARENT Cee 00824210 

M = i 
FOR I#=0 STEP 1 UNTIL 63 DO 00825000 
BEGIN 00826000 
EF eMu REVERSE CMOUMP,5330 AL x 00826990 
READCMDUMPs 5332 AC*] )LBADTMSPAR]3% 00827000 
IF FLGBITCA) THEN GO FLAG ELSE 00828000 
MODONLALO] C33: 3}} FsNUT BOOLEANCALO) : HEN 00829000  _—s_—=» 

BEGIN 00830000 
RSA in ee ean RUWs0))3 00832000 

A () ROWes * 008: OQ wir F 
END ELSE IF ACO] ¢f38:5)=0 THEN LTisle73 % 00833000 
COMMENT ONE BLOCK IS WRITTEN PER ABSENT MOD; 060833010 

END; 0083400 Sse 
TOMFIDS=MDUMP MF IDS 00834050 
TOF ID’ SMOUMP.FIO; 00834060 

FILETYPE#=SIF MNUMP.eTYPE=2 THEN “TAPE” ELSE "UISK"S 00834070 a 
IF NOT MULTI THEN 00834075 
IF FILETYPES"*TAPE® AND TOMFIU NEQ 0 THEN 00834080 
IF TOF Ds f308j18)e] THEN ELSE MULTI tsTRUES 00834085 
IF REPEATING THEN IF TOF IOel30%18)=] THEN CLOSE CMDUMPD 00834095 
ELSE CLOSECMDUMFs*) ELSE 00834097 

F_ CAUXTYPE $3A(0),0335))=0 THEN O0O834400 
IF FILETYPE®"TAPE" THEN =: 00834200 
READCMDUMP 92051 MMTC#])CEOTSIGNOREPAR J ELSE % DISK 00835000 
MOVECALSI3)eCOMMT,20)3 060835100 
IF FALSE THEN IGNOREPAR! BADCUMMENT*TRUES 00836000 
COMNT %= TRUES 00837000 


GETCOMMONCCOMMTsN4)3 


IF N1 GEQ 0 TREN COMMON? sBOOLEAN(NT)3 N13*03 
IF. MULTI THEN NOMOt%e TRUE ELSE 
READCMDUMP(NGJICEOTIPARTS 
IF FALSE THEN. 


BEGIN 
OT:. nS Mi 
NOMOt=TRUES 
ENDS 


UMMON OF RELOAD THEN: 


0083705 


00637055 
00837095 


00837100 


00837200 
00837300 


00838000 


00838010 
00838100": ye 


NO839000 . 
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8, 7 a, a : 5 


: 


ELSE 


00840000 


BEGIN 00841000 e 
-——1F_PRT32 THEN READARRAY(30SEGZERUL*]¢0) FiLSE Fs 000 
SPACE CDISKs 1.93 00844000 } 
READARRAY (NAMESIZEsNAMEL*JsPRTBASE)3 00845000 1@ 
46.3 * Moe PO OB MOON Os: fist ek Jot 8 Se ht ot ee Se 3 
"READARRAYCINAVESIZEs INAMEL*120)3 00847000 : 
READARRAYCINAMOSIZEsINAMS(L¥I150)5 00848000 , |@ 
sete OSE CD SRE 8 ee es a see OOO Oa crs es é 
NiSeDISkKeMFIOS N2sspISk.F ID; 00849100 1@ 
WRITECPRINAME(C*I*PRIFILESNL , COSGIsNIONZ, C626] 9N2)3 00849200 8 
Conan eae onsets 5 =O OB SO 00 voy SE oe s 
IF RELOAC THEN ELSE 00850100 le 
BEGIN 00850200 i 
WHILE NOT MOCONCMAXMOD] DO MAXMOD3 sMAXMOU 13: 00852000 3 
MAXCOR3 =4096x(MAXMOD+4)"13 4% 00853000 |@ 
F_COMMO HEN 00854000 00 is 
BEGIN 00855000 e 
PRTMAXS=PRTIBASE+*NAMESIZE™144 00856000 2 
__._INTMAX ts M a rae Sa ae RON Oo Gio) 4 o Onan mn ne ete ei Re a ee I 
FOR [ssPRTBaSE STEP t UNTIL PRTMAX DO NSNAMELII35= 00858000 1@ 
NSNAMECIJ+PRTBASE3 00859000 a 
____ FOR Ise A aM dis OO860000 al 
ISNAMELI]+PRTQASE} 00861000 ' 
FIXDEF INES 00862000 
ee Lx hi Pe rs eI BOO Oe cs cc el ste t 
“IF MYSTACKABR LSS-O THEN % LETS USE 1T 00863100 
IF baad gerne a THEN % CHECK FOR MSCN In CELL 7 00863110 
ne ann iz 3 —OOB63420 0 
MVSLACKADREE P40: % MAY NEEL MOKE THAN 30 00863130 
END} : 00864000 
_. ; 00864100 
IF FALSE THEN BEGIN 00865000 
BADTMSWRITECSPOs,BAVEOFs1)3 GO EUPROG; 00866000 
___ PAR? WRITECSPC,PARERRsI+1)3 GO EQPROGS 00867000 | 
FLAGS WRITECSPCsFLAGERR»I+1)% GO EGPRUGs ENDS 00868000 
END LOAD3 00869000 
PROCEDURE CHECKPRIFILEs% a UU BTO00O oe 
ASIGNALS USER IF mCP/PRT FILE *MIGHT* BE THE WRONG ONE 00871000 
BEGIN 00872000 
‘ REAL LOCsTYPs]73 00873000 a ses 
REAL MYTYPE3 00874000 
LABEL BAD» MAYBE 00875000 
DEFINE CHECKFORLABELDESCRIPTORSIF LOC LSS 0 THEN GO BAD ELSE 00876000 
IF DESCRIPTOR(LOCseTs TYP) AND TYP=MYTYPE THEN ELSE GO MAYBESS 00877000 
DEFINE CHECKF ORPROGRAMDESCRIPTORSCHECKF ORLABELDESCRIPTORSS 00878000 
ORMAT BADPRT¢"e#e YOUR P/PR wR O NN Ay OO879000 
INCOMPATC *m@—enNCP/PRT FILE NoT COMPATIBLE WITH MCPS PRT IN MEMORY one" )3 00880000 
DEFINE ERRMESS(ERRMESS1)= BEGIN WRITE (SPL 2ERRME 3513 00881000 
anal PEPAG “RRMESS 1) \ ; 882000 a, 
MYTYPE SE" 763 00883000 
IF CLOCPSNOTHINGTODO) NEQ OQ THEN 00884000 
KFORLABELDFE SCRIPTORS QO088S5000  —s—s 
IF (LOCS=STACKOVERFLOW) NEQ@ O THEN 00886000 
CHECKFORLABELDESCRIPTORS 00887000 
OACr=R RN NE § Oo8ssoddn..—srsidisc‘(‘éé#l i A Na pA eli 
CHECKFORLABELDESCRIPTORS 00889000 @ 
MYTYPE Sa" 75%3 | 00890000 56 
IF (LOCtsD]RECTORYBUILDER)#0 THEN LOCI a—13 00891000 : . By, 
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CRHECKFORPROGRAMDESCRIPTUR; 00892000 
@ IF FALSE THEN MAYBEtBFGIN ERRMESSCINCOMFAT)$ PRICODEtS1 ENDS 00893000 
—___-IF FALSE THEN BADtBEGIN ERRMESS(BADPRT)$ PRICODEt=2 END; sung 
1 END OF CHECKPRTFILES 00895000 
@. PROCEDURE DUMPMCPSPRT; 00896000 
3 G BI ae I i is we A ie UO A OOO 9 eos co a ee ple eee 3 ne So ts 
le FORMAT HDR(X420"D C MC PS PR T"/ 00898000 
e|: X4Qpte = ew mm mm M/S, 00899000 
6 " if] er a ~ 99 gt 1 “ " ope Ae RIC ec er eT) OY rere ae eee 
7 : DASHES( 12009") )> 00901000 
@: FCX8s"MEMORY MODS! "“s@li)s 00902000 
9 PRIEITEM (2( AGS" 7 "sie Xi» Oe X39 PF: O0O903000 
ho INTEGER LOC#NS 00904000 
er LABEL EXITS 00904100 
r ____IF_DUMPCESSPOOLONLY THEN DUNTDUMPRIt=TRUES 00904500 
i IF NOT COMMON THEN 00905000 
@™ BEGIN 00906000 
nj CHECKPRIFILES Dore 
16 IF NOT DONTDUMPRT THEN BEGIN DATIME} WRITECPLOBLJ) ENDS 00908000 
@” PRINTMCPOPTIONSS 00909000 
he LF_DONTOUMPRT THEN ELSE ttn 
"9 BEGIN 00911000 
@ « SRITECE CURLY: HDR)3 00912000 
__sFOR LOCt=ACTUALPRIBASE STEP 1 UNTIL PRTBASE D 00913000 | Sytioaes 
ba BEGIN 00914000 
@» WRITECLINEL *]+PRITTEM*»OCTALCLUC) sUCTALCHIHALFCLOC)), 00915000 
pe OC TALCLOHALFCLOC)I»OCTALCNSSXSNAMELLOCI)» ss tC; Ne ek Re ee ae Oe ed ee 
OCTALCHTHALFOCN) )»#OCTALCLOHALFO(N)))3 00917000 
@ * MOVE (XNAMSEXNAMECLOC].CFIJ*LINECAJ*XNAMELLUCI,FF)5 00918000 
7| ¥ . 
be WRITECPe15eLINEL*1)3 00920000 
@ IF DONTOUMPRT THEN GO EXITS 00920100 
Bo NIE OOY; O00 a ei pe Pc pea er pee Pow pape eps sonic it tec ie 
p WRITECPsDASHES)3 00922000 
@ | FOR LOC?!sPRTBASE+1 STEP 4 UNTIL PRTMAX 00 00923000 
BEGIN _. 00924000... 
ia WRITECLINEL*]sPRTITEM*OCTALCLUC) pUCTALCHIMNALFCLOC) D> 00925000 
@® OCTALCLOWALF (LOC) sOCTAL (NES NSNAMELLOCI)» 00926000 
Be 0 HIHA Nef Q DbA N 00927000 
us MOVE CNAMSENAME[LOC). CF JsLINEL4) »NAMECLOCI «FF )3 00928000 
@ MOVE CNAMSCNAMECNI,CF J+LINELIZI»NAME(NI,FF)S 00929000 
in R 215 * _. 
‘ IF DONTDUMPRT TKEN GO EXITS 00930100 
: ENDS 00931000 
3 NEXTPAGES 00932000 
@ -- END; : 00933000 
ND ; : a 
WRITECPCDBLJsFeFOR Nt=0 STEP 1 UNTIL 7 pO 00935000 
Or LIF MODONCN) TREN N ELSE 10))3 00936000 
: DATIME3 00937000 es 
IF DUMPCESSPODLONLY THEN ELSE 00937500 
@ fF IF NOT COMMON THEN a. deh 00938000 
st BEGIN : 00939000 
MCPENTRIES3 00940000 
@ : GETPRTENTRIES$ NEXTPAGES 00941000 
id ND: ¢ a 
‘ END OF DUMP OF MCPS PRT3 00943000 
@ PROCEDURE CHECKMEMORYLINKSS 00944000 
ey A ; 00945000 
@ 
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@ @ 
BOOLEAN ZEROK} REAL VOs % 00946000 
@ BOOLEAN MSTARTOK$ REAL VMSTART3 & 00947000 e 
eee een *| R ROUNDS OO947100 
1 REAL LINK» VLINKs#sPREVLINGS 00948000 
@ | INTEGER AVALLNOAVAILT® AVALLMG 00949000 1@ 
{3 BOOLEAN PROCEOURE LINKOKCWORO)S B00 OD s 
4 VALUE WORDS 3 00951000 4 
@|: REAL WORD; % 00952000 |@ 
——— __LINKOKS SWORD, [326 JSTYPMAX AND % 00953000,” 6 
7 WORD e L936 ]SMIXMAX AND 00954000 7 
@: WORDeL1533]503 % - 90955000 |@ 
9 _____ FORMA " INKS FROM * q " " AR _00¥956000 9 
nd FCORECASs" = Pear eR MTL EST reat = "oF 4,2 00956100 19 
@ in ", sae vor = Rice ",Z,USING “eASE"h CesT Se") ")5 00956110 il@ 
p2 A Ao," AT "sASe" [5 NOT OK" _oo9s7000. 1 
SADPRINARY(XE,"PRINARY LINK AT “sA5e" IS NOT OK"), 00958000 "3 
@ |: AVLBAD(XBs "AVAILABLE STORAGE TOTALS D0 NOT CROSS CHECK")»00959000 \®@ 
5 : " 00900000. Bend ocesdastome Fee yet 18 
q TaaeCne TL AREAS OF "sASs"("s 155 00961000 16 
er ") WORDS UP TO "sA5s"C",155") WORDS EACH")5 00962000 7@ 
i ee gn __ 00963000. dite Ne oe eae ene ee a oa 16 
, DISPLAYCO*FALSE)3 00964000 1@ 
@ F. DISPLAY(MSTART#FALSE)3 00965000 = 
ISP M ; 00966000 peers 21 
P2 DISPLAYCAVAIL»FALSE)3 00967000 e 
@ 2 IF GPERANOCCCRE*T) AND Telit3]220 THEN 00967100 23 
H > OY OPT Renren renee arree eree} 24 
WRITECLINEC #) »FCORESOCTALC COKE )sUCTALC(HIHALF(CORE) )» 00967120 2 
@ » OCYAL(LOHALF (CORE) )»T.(4814]/100, 00967430 | @ 
r ees Sea orca ra : piirerinees © Ye 8. WW ds A 1 0 eae tr ea ie ea ? 
we OCTALCONS STeFF x64) CF) aN)5 00967150 10 
OF WRITECPCOBLIJ»15eLINEL*))3 00967160 
i DISPLAYCCORE>sFALSE)3 00967180 1@ 
@ | ZEROK:=OPERAND(Os V0) AND 00968000 3 
ee ee t2)= A _ 00999000 3 
’ V0.003315)29 AND 00970000 3 
@ VOeFF=(MAXLNKS=MAXCOR=2) AND 00971000 31@ 
FE x 40 v¥O,CF 4096 i) 9715 28 AP-A0 95 © Nee a ee Te st 
OPERAND(VO.CFsT) AND LINKOKCT) aND TeF F203 00972400 il 
OF MST ARTOK! SOPERANDCMSTART » VH8T ART) AND 00973000 @ 
s A = % , 29 
VMSTART GTR 1023 ANO wo LSS 40963 00975000 ‘0 
@ IF UNKSOKtsMSTARTOK OR ZEROK THEN 00976000 «|@ 
MINUNKSSLINKS=IF MSTARTOK AND ZEROK THEN MAX(VO.CFsVMSTARTD 00976100 ad 
ELSE IF MSTARTOK THEN VMSTART ELSE 00976200 ‘ 
@ |. IF ZEROK THEN VOeCF ELSE 03 00976300 «@ 
IF LNKSOKt sMSTARTOK THEN MINLNKSSLINKS=VMSTARTS &% Ooo977000  —s——— 45 
AVALNKOK$=TRUES 00978000 r 
@ Nt=T:=Q3 00978100 |W) 
: WHILE LNKSGK AND MAXLNK>PREVLINK DU & 00979000 _ . 
Ec IF LNKSOKS COPERANDCLINK*s VLINK) AND 00960000 49 
@} LINKOKCVLINK) AND 3 00981000 “f @ 
VLINK.FE=PREVLINK AND %& 00982000, 51 
CIF LINKSMAXLNK 00983000 5 
@: THEN VLINKaCFsO & 00984000 «| @ 
: ELSE VLINK«sCF>LINK)) THEN 00985000, ts” 
BEGIN % 00986000 55 
@ i PREVLINKS®LINKS % 00987000 so @ 
ef LINKt2VLINK CFs % 00988000 
@ 
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oo n~ OD TFT BB wR = 


A <n ee ee eA A A ee 


os 2 2 


| 
<i 


IF AVALNKCK THEN % 
IF BOOLEANCVLINK.£C131)]) THEN & 
IF AVALNKGK&S=MAXLNK>PREVLINK THEN ¥ 
IF AVALNKOK#s(QPERANOCPREVLINK+1eVLINK) ANO % 
VLINK, 012243720) THEN & 
N 
AVAILNSSAVAILNG1S & 
AVAILT&ESAVAILT+VLINK FFE & 
AV 2 SMAXCAVA M NK ~)3 


END; &% 


ENDS & 
NO f RK al WR PeBA DPR MAR 2 
IF LNKSOK THEN WRITECP* RANGE o IF ZEROK THEN O ELSE OCTALCMINLNK),» 
OCTALCMAXLNK)) ELSE 
B N % 
IF SUN er pey eT NEPA INENS THEN 
BEGIN & 
WER ECP»RANGE, ROK HEN O a . MINE NK 


OCTALCPREVLINK))3 
WRITECPsBADPRIMARYs*OCTALCLINK) 5% 


MINBADS SL INKS 
PREVLINK#S=03 xX 
UK iz K 
WHILE OPERANDCLINK»sVLINK) AND % 
LINKOKCVLINK) ANO 
Fa i 
LINK>VLINK FF 00 3% 
BEGIN % 
LINKSSVLINK FFs & 
END3 & 
PR NK SO N MAXBAL$ XCOR+] ELSE 3 
WRITE CP» RANGE, OCTAL(WAXLNK) ,0CTAL (NAXBAD t=PREVL INK) 3 | 
WRITECP pBADPRIMARY pUCTAL(LINK) 3% 
UMBAR £ sre VK $ 
ENDS & 
NOWRAPAROUND 2=TRUES 
F AVALNKOK&3=scOPERANDCAVAILsPREVLINK) AND 


PREVLINK=MAXLNK#41 AND & 
OPERANBCPREVLINKsVLINK) AND & 
NK 3 120 AND % 
VLINK,FFS32767) THEN % 
BEGIN % 
W ry - pA K at H U 


NOWRAPAROUND "AND. ne 
CIF. UNKSOM THEN AVATLN: GTR N ELSE TRUE) AND 
[F LNKSOK THEN AVAILT GTR T ELSE TRUE) AND 
CIF LNKSOK THEN AVAILM GEQ M ELSE TRUE) 00 
IF NOWRAPARUUNDSS(MAKCUR GTR LINKt2vLINK.CF 
AND LINK GTR 0) THEN 
IF AVALNKOK $s (OPERANDCLINK@ 1+ VLINK) AND % 
LINMOKCVLINK? “AND 2% 


BOOLEANCVLINKel131]) AND & 
OPERAND(LINK#1*VLINK) AND % 
VLINKSPREVLINK AND % 
OPERAND(LINK*VLINK) AND % 
VLINK,Citi7]80. AND 
MLINKSCFALING) THEN & 
BEGIN *% Zs 


00989000 

00990000 

00991000 

00992000 

00993000 
994000 

00995000 

00996000 

00 OO Oat ioe, tre toan tae ote Te 

00998000 

00999000 


01000000 
01001000 


01003000 
01004000 
O1L1005000 
01006000 
01007000 
01009000.—=ti‘C <!;‘C:;W 
01010000 
o10i2000—s—“Ci‘;C;W 
01913000 


01015000 
01016000 


01018000 
01919000 
019200009 
01021000 
01022000 
040 000 
01024000 
01925000 
01026000 
01927000 
01028000 
01929000 
04930000 
01031000 
040 000 
01932100 
01033000 
01034000 
01035000 
01936000 
01936100 
01037000 
01038000 
01939000 
01040000 
019041000 
019042000 
01943000 
01944000 


01045000 
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5 2) % y 7m Th < 


TE: 


NS ENe13 01046000 
TIST+VLINK OFFS & 01947000 @ 
MS Mp V . NAeJ z 0) BOO) 0 ns St At gn ee 
PREVLINKIsLINKs %. 01949000 4 
END} & 01050000 /@ 
aan N RLY AD» "AVALBL® 51000 : 
IF LNKSOK AND 01051100 le 
NOTCAVALNKOKi= 010952000 - 
San OF ETP CTTOIN TY; 7c a nh re Et OX > 0-9 . 
AVALLNEN AND & 01953000 le 
AVAIL TST AND & . 01054000 : 
RR id ith om 4 : 3 felipe Abele k ba hi mr 
VLINK, CFSMAXLNK4+1) THEN WRITECPe2AVLBAD) ELSE & 01056000 ie 
EI TECEs AVL» NsQCTALCT)sTsOCTALCM) oM)3 01057000 y 
Ab 3] NK SAK AN RAN AXI NK» OOS BOO 0 ose ‘“ 
THEN TSFF ELSE =13 01059000 a 
END ELSE WRITECP BAD "AVALBL" »OCTAL (MAXLNK*1994 04060000 @ 
5 Pr ORL FE 3 Be EU tt OnO.— : ba 
END3 - 01062000 be 
ARRAY eo 01063000 @ 
maces DUK A F ROM HE BEDS 0) Q °; OO en eS eee a te 
BEGIN 01065000 1@ 
INTEGER 13 01966000 a 
’ mo MIX? 0 A7OOO - a 
INTEGER M$ BOOLEAN 83 01068000 a 
FORMAT DUPBED(X8s» "DUPLICATE BED ENTRY FOR Mix=",I2, 01069000 231 
“ =f hae OOF GOO Oise isa 8 es ee ete Be 24 
" (TRIS ENTRY IGNORED) ")3 01071000 ar 
REAL vaTYP3 01072000 oki 
LF 7 sec wears 2 
IF VJOBNUM,[1:8)=0 AND 01074000 1@ 
VJOBNUM,.C4781]=0 AND 01075000 be 
PDATADES ’ NO 076 Fen eee eee ee i 
“VJOBNUMSVBED.£6!10)] THEN 01977000 . 
BEGIN 01078000 2 @ 
VBEDtsv JCEz OVOP IOC 8 cee Se ee es oe eit 3 
FOR Itso STEP 2 UNTIL VUUEBNLEM OF 01980000 a 
IF DESCRIPTUR(VBED+12V*TYP) THEn 01081000 3 @ 
IF BsesC (MI xsayel6sQjaTYPly3i45%3]) GTR 01082000  _—s—i_—g 36 
AND (MESMIXSTKEMIX]) NE® 0) THEN 01083000 . 37 
WRITECP+DUPBEDsMIXsOC TALC VBEU+1)) 01084000 4 @ 
_ELSE 01085000 ae 39 
BEGIN 01066000 40 
BEDSTKt=MAXSTK S=MAXxSTK4]3 014087000 «|@ 
MIXSTKCOMIXISSHEDSTKs 01088000 a2 
STAX(BEOSTK) f= 01989000 4 
V FFR 01090000 a 4@ 
168%3831038 01091000 4g 
CREALCMIX>O))£724724)3 01092000 ‘6 
ENDS 01093000 0) 
ds 01094000 ‘. 
IF 8B THEN WRITECPLDBL))3 01095000 4 
END GETSTACKSFROMTHEBEDS | - 04096000 , = | @ 
PROCEDURE OUMPMEMORYANDNOTESTACKSCFROMsTOO)s. " 01997000 = ; 51 
VALUE FROMsTOO; 01098000 5 
INTEGER FROM,TOOS 01099000 at 
B N 04100000. 5 
BOOLEAN BEBDED; 01101000 . ae 55 
DEFINE TSLINKTYPESS 01101100 | , co @ 
REAL 3 a 01102000 : a eee aon 5 


onmn HW M7 F WH = 


TS . cy 
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A 
wo 


o 8 2 s 


e 
FORMAT ITEM(X2sA3%0" =%57(X49A5))3 01103000 
REAL ReABRs Gs Lis BOOLEAN INTR»QT3 01104000 g 
; Sere CS WoL: {cc 1s ec ae 
REAL ISTACKVSBDOLEAN ISTACKOKs IRSTACK3 01106000 
BOOLEAN MCPSAVE +MXxNOTOs 01107100 
x MX OsSNC MX AO T OZ () 4 OO. Lea eee nS 
REAL DCQPTSTACK»DC@PTSTACKVs 01108000 
BOOLEAN OCSTACKsDCHITS | | 01109000 


INTEGER NpSTK$ | 01112000 
REAL MX} 01113000 
ORMAT AVATL AS “eee AVAIL ABLE Zt won Wye cons 
USERSTACKPRTCX27 eo "MIX="el2e" STACK=PRIT") > 01115000 
MIXUSECKE7s"MIXS" 9 LeeX12A6)s 01116000 
S sf gut . -” ” ict 
MCPUSECX27»"MCP@="sA6), 01118000 
MCPSTACKCX275 "MCP TNOUEPENDENT=RUNNER STACK") >» 04119000 
Y " bad e SEP A Severe 
TABLEAREACX272"MCP TABLES"), 01121000 
ARRAY ATPLOSTYPMAX4+1]3 01122000 
sss ta LPN PI Oe i 
FILLAREATYPE3 O1l22200 
IF DATACOM THEN 01123000 
eat Na a A ee oe a ye I OO Olan oe one ye 
DCSTACK!=DC GTR 129 ANU UFERAND(DC*OCV) 01125000 
AND OCV NEG Y AND OCV. 4é 32 )=0 01126000 
se Sl iA eee oe EN oF is . a se eimatesee: 
OPERANDCDCV»R) AND RsO ANDO 01128000 
OPERAND (OC V- Nae mae Qo fl 986750 hs 01129000 
eae 3 = ce Sata SS a OG Se ee 
END OF LOCATING DCQFTSTACK ar TER MANY CHECKS; 01131000 
ISTACKOKF=PDATAVESCCISTACKs ISTACKV) AND 01132000 
CISTACKV#SISTACKV.CF) GTR O03. 01134000 oO 
_INTRESPDATADESCCINTRNSC SOR) AND ADReFF #03 01135000 
ADRei=A Lie BL SB cel ae la oa eed On RN Rte ee 
“UNKNWN"» "CODE test DATA “s*1O—BUFM. 01137000 
"ALGFIB™>"INQBUF™s"COBF IB" s"*INTSEG", 014138000 
"HEADER™s "MAINT ", © LO"s"SPACE “s"STACK My 01139000 eh 
"INT L3"e"SCRDIR"s"OPSET "s"OIRTOP"s "SPOUT Ms 01140000 
"LABELS*» "JAR “es "CTDROW's"TNQPT " oR ENTRNC® 01141000 
"W ips " P CT rn 2 A re) “#," : ae had : 1a oA Sas 
"KEYIN wy" 29» "DC19Q ft, tt SL" "STAWD 01141200 
il} 33%," 34q”"," 35%, 36", 37", 01141300 
" aan," owt Ott, O114 0 eile es 
weeeeeenj;aran DENOTES UNRECOGNIZED LINK TYPE 01142000 
WHILE FROM<TOC0 OG - 01143000 
() HOO Start tit ae ahs oo Roe 
IRSTACKI@FALSES 01145000 
DCHITI=FALSE; 01146000 
Nez=(LssMCFROM,ROWsFROM.CULI) CF 149 
IF TesL,0326] GTR TYPMAX THEN Le RStGd SETH eTYPMAN SL IR BAD TY¥P01149100 
MXNGTOSSCMX ESL.» C936)) NE® oO; 01149200 
BOOLEAN 2 ane ; #] V000 Ear, 
IF NODUMP THEN ELSE 01150100 
BEGIN 01151000 
IF OPERANDC(FROM#19X) ANO X«L1817]=0 THEN 01153000.t—~Ct«*‘ 
XMoFF ELSE "100005 in 01154000 
AR DB A ABL : fa: ; HEN “wwewe” £1 SE e SS5O000 
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@, @ 
OCTALCAVSIZE) »AVSIZE)» 01156000 
 ) AVALNK2=TRUES 01156400 ) 
PRIA ROM Mra f OR fo a Sk SS _O11I58000 Bas elas eens Gee doce wll 
: NEEDCHECKAVAILNKS THEN N ELSE FROM+3)3 01159000 : 
@ AVALNK S=FALSES | 01159100 2|@ 
3 a nN J eee ee Senne ee eee eee Cee 3 
: ELSE 01161000 : 
o: BEGIN 01162000 |@ 
6 ee te. A R + Potts AA ee ee ee 01163000 iver 6 
7 MCPSAVES#QT AND G NEQ O AND Lo€2#13)24096 AND Q.FF NEQ O 01164000 : 7 
@: AND QeCF GEG 129 AND Q,CF LEQ PRTMaAX; 01164100 |@ 
9 a(f a = 9 
fa IRSTACK3= CCONTROLDESCCFROM+2R) ANU 01164300 ‘9 
or ReFFSISTACKV41) OR 01164400 |@ 
2 BNTROLDES ROM+32R) AND O4164500 bs 
R»FFaISTACKVei)3 01164600 "3 
@ }+ IF NODUMP THEN ELSE 01164900 @ 
5 AIXNOTO AND. T#? AND __. 01165000 = 15 
6 OPERAND(FROM429X) AND X=("BRBB"8"HBBA"(13253 23)) AND 041660000 a 
er CCCONTROLDESC(FROM+35xX) AND X,FFEO) 01167000 |\@ 
é a a i oO 00 Sc ert eR A ay 18 
9 COPERAND(FROM+34X) AND KSO AND CUNTROLDESC(FROUM+4e#X) AND XeFF80)) 01169000 | 19 
@ THEN WRITECPLOBLIZUSERSTACKPRT»MX) ELSE 01170000 21 @ 
F_C(MXNOTO AND T=4 AND Lel2t1]21 AND 01171000 ———s™ | | a1 
P2 OPERKANDC(FRUM+25x) AND Xeb1!37]750 AND 01172000 , 
@» OPERANUCFRON#3sx) AND X«l1t2] LE@ 2 AND 01173000 
; ng tenes eet Se Regs Se SPT OOOO vce ade Sho 
ti THEN WRITECPLOBLJ»SEGDICT»MXx) ELSE 01175000 
@ -: IF MXNOTO THEN WRITECPCOBLJ»MIXUSEsMX»ATPLTI) ELSE 01176000 
- MXO AND z AN 0) OR MCPSA HE ON 0 N00 en tel ee 
: DISPLAYCQ,.CFeFALSE) ELSE 01177100 
@ ¢: IF QT AND T=7 AND INTR AND ORERAND(ADR+(LLt=046 82103) R) 01178000 
B AND R8=R,CF>J023 AN Q INTMAX THEN 01179000 i isis 
WRITECLINEL * Je IT TEMPOCTALCLL) sOCTALCR) »OCTALC(RtQeF Fal) 23 01160000 
@ MOVECINAMSCINAMECLL I 6CFI¢LINELS2¢ INAMECLL IFES 01181000 
? * sere myers tS Ee 100 0 ee dee 
, “IF CDESTACK ANB OCHIT) GR 01143000 
@ Lel2t1)51 ANDCT=O GR Ts12) AND XO AND 01184000 
STACKO ; 36 
IRSTACK 01186000 27 
@~ THEN WRITE CPCOBLJsMCPSTACK) ELSE 01190000 a4 @ 
IF FROMsTABLESLOC THEN WRITEC(PLOALJ,TABLEAREA) ELSE 01191000 39 
IF FROMSADR=2 THEN WRITECPLUBLJ»INTARRAY) ELSE 01192000 “0 
e WRITECPLOBL]»MCPUSE»* ATPLT])3 01193000 |@ 
STKt="4 BEDDEDt=F ALSE} 01194000 4d 
WHILE BEDSTK GEQ@ STK#=STK+l AND Not BEDDED pO 01195000 4 
@ | IF BEODEDt= 01196000 @ 
‘ LLs=STaXrSTK] TR FROM aNp N GTR LL} THEN 01197000 49 
IF STAXCSTK)eFF=C THEN STAXECSTKJ+FF%=FROM#23 01196000 ‘6 
@ IF NOT BEDDED AND CIRSTACK OR 01199000 | @ 
" = OR 0120000 48 
| CDCSTACK AND OCHIT)) THEN 01202000 4s 
@} ST AX [MAXSTKESMAXSTK41 14 BCNMLI8CFROMAZ 118133315 J 01203000  @ 
9 A 01204000 ot 
Fy NOTPRINTCALL!SNOTPRINTCALL AND NUT MCPSAVES 01208100 5 
@: PRINTC(FROMsIFC ONEMIX NE@ 0 AND ONEMIx NEQ@ MX AND Mx NEQ@ OD 01209000 =|@ 
OR (NONORMALCODE AWD (c(T=7 OR T#13) OR 01210000 See _ 5 
(T=1 AND MX NEQ@ 0))) 01211000 53 
@ | OR CNOMCPCODE AND (LeC3!12)=64 OR MCPSAVE)) 01212000 sq @ 
et : JEN FROM#2 ELSE N)3 01215000 
@ ee 


o ont mo OO FF WY DH = 
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MCPSAVES=FALSES 
END; 


e 
ROM 2 =f 


END3 
NOTPRINTCALL $=FALSEs 
D VU MP ME MOR ANU NO Pe FA 


ARRAY MCPROG(02255])3 
INTEGER MAXMCPROGSESP3 


PROCEDURE SEQUENCECARAYsLIM)3 
VALUE LIM3 
ARRAY ARA 0 
INTEGER LIMs 
BEGIN 
N R ; 
REAL v3. 
STREAM PROCEDURE MOVE(SsD»032,mM32)3 


BEGIN 
Sys:2S3 D1:=03 
= Ww 
DSt=M32 WOS3 
END MOVE? 
s e 
WHILE (CT%=T=1)20 00 
BEGIN 
Iss, IM3 
LieCVieARAYET1).CF3 
WHILE ARAYCII],Cr>L DO 
taleq>s 
IF (L&sI"T)>0 THEN 
BEGIN 
MQ ARAY ¢T 
ARAYC TI] svi 
END; 


sARAYLT 


Ni 
END SEQUENCE: 
INTEGER BADSAVEPRTLOC; 
PRO PE DYR J OR A TM PROG( BI, A 
BEGIN , 


FORMAT TOTALPROCS(///"#aH A TOTAL OF "s[35" MCP 


"WERE PRESENT IN pa eae ee 
B C I 


"CONTAIN Fananan oR Pais DESCRIPTORS FOR SAVE CODE "» 014257110 


WAS rene SHOULD ses” 


“PA FP. FRE 616, an 


"PRT" X59 "DESCRIPTOR" sX8>"THRU"// D3 


IF NOY B THEN % SORT/*DOQNT* LIST 


° N 


IF DESCRIPTORCESPSITsRe TYP) AND TYP="75" THEN 


MCPROGEMAXMCPROG!I=0]%= 
Pisk 2% 
CESP4R,(8210]91)013883321518 
ESPBIT£83 38810] 
ELSE MAXMCPROG:?s=143 
IF MAXMCPROG NE@ -1 THEW 


OUTERBLOCK(G) tC PRIMAX41 A CESP~ 4) CTF3 


FOR [#1¢69 3 N » PRIMAX DO 


aL, 


01215100 
01216000 
OTB — 
01219000 
01219100 
0 OOOO ois os ot, ee Se 
01221000 
01222000 


01224000 
01225000 


01227000 
01228000 


01230000 
01231000 


01233000 
01234000 


01236000 
01237000 


01239000 
01240000 


0 02-28 6 Re eee ee 


01242000 
01243000 
O12 O00 
01245000 
01246000 
33 3 0 okeze 
01248000 
01249000 
01250000 | 
01251000 
014251500 
AN Bi : 252000 
01253000 
Vege sone 
OUD 


01256000 
01257000 


PROCEDURES ", 


01257120 

01258000 ere te ee 
01259000 

01259500 

O 960 0 

01260000 

01261000 

01242000 

01263000 

01264000 

01265000 4 7 
01265900 , 
01266000 


resect OL OT O00 to. 225s 
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. 0 ‘ 3 a : : 3 s. TS - x. 


a a: 


IF DESCRIPTOR(I*Rs TYP) AND 


01268000 


(TYPs "75" _OR TYP="77" oR TYP="74") AND 01269000 e 
NCPROGEMAXMCPROG?SNAKMCPROG?1 105 01271000 : 
R.CF& 01272000 : :|@ 
__ (RACFeRe CAILOIM1ICIBE3RIISIE ; 01273000 - 
If 8:38%10)3 01274000 : 
SEQUENCE CMCPRCG*MAXMCPROUG)3 01275000 |@ 
Se NO Ee ee Na tal ge ee es tte Os eo " 
BEGIN 01275600 ; 
NEXTPAGES 01276000 |@ 
WR P sa lee ts Soe a EE POO te oh , 
SGLTOGt2TRUE3 01277100 a 
FOR Is3Q STEP 1 UNT i MAXMCPROG DO 01278000 /@ 
DISPL AYCMCPRO R Fitted tee tes ite ee Me 
SGLTOGtsFALSE?. . 01279100 is 
HRITECPs TOT ALPROCS.MAXHCPROGEL D3 | : 01280000 |@ 
IF BADSAVEPRTI NEQ O THEN WRITECPsBADLOCsBADSAVEPRTLOC 01280300 2 ii 
END} 01280500 "e 
: END GET SORT AND LIST PRESENT MCP PRUGRAM SEGMENTS3 01241000 i 
i) N ANDSUR a = O 4 ome Aer VS nema 
GETSORTANDLISTMCPROGCFALSE)#3- 01281410 bs 
DEFINE LISTMCPROG= 01281420 @ 
ORTAND STMCPA RUE) #3 0128 Os ee ot ' 
PROCEDURE ODUMPMCPSAVECODE; 01281500 = 
% SEPARATES & IDENTIFIES SAVE PROCEDURES & ARRAYS 01281510 3 
: h Em eS 8 at ee ce a a oa a 
BOOLEAN OKs 01281530 1° 
INTEGER TeSIZE3 01281535 B 
INTEGER Ip JsLASTADR»NEXTPROGS 01281540 & 
OK F=SGLTOGS=TRUES 01261556 @ 
ANRi= 3 Po ee ee ee PS ; 
FOR 130 STEP 1. WHILE OK AND I KEQ@ MAXMCPROG pO 01281570 x 
IF OK$sCTHISPROG? eMCPROGEIJ)eFF LSS MINLNK THEN 01281580 1 @ 
REF GIN 0 En Te ee be 
DISPLAYCTHISPROG,. £8210] TRUE); 01281600 7 
PRINTCTHISPROGeCFsLASTADRiE=THISPROUGeFFTtL) 3 01281610 |@ 
IF OKt=(NEXTPRUG?S=MCPROG(I+1) CF SS MINLNK THEN 01281620 _ 36 
WHILE NEXTPROG NEQ@ LASTADR VO 01281630 ia 
BEGIN 01281640 4@ 
OR wis 9 Pp. iN LPR Ax 00 Q) R1450 39 
IF PDATADESC(UsT) THEN 01281660 40 
IF CSIZEtST,.08210}) NEG O THEN 01281670 |@ 
IF _(TtsT,CF) = LASTADR THEN 01281680 oy. 
BEGIN. 01281690 4 
DISPLAY (Js TRUE)4 01281700 4@ 
is 01281710 ame oa! “9 
PRINT CT WIN CLASTADR ais I ZENER eROGT 01281715 a6 
IF LASTADR GTR NEXTPROG THEN NEXTPROGS=LASTADRS 01261720 | @) 
ENO 012817 18 
IF J GTR 1023 THEN ELSE BEGIN % A PRT CELL HAS BEEN Faprenel 81727 49 
PRINTC TIeLASTADRsLASTAORS mNE Xx TPRUGIS 01281728 1@ 
BADSAVEPRTLOCISBADSAVEPRTLOC+1 3. END3 01281729 _ 51 
END3 01281730 8 
ENDS 01281735 «| @ 
PRINTCLASTAOR»MINLNK)} 01281740 5 
SGLTOG?t#FALSES 01281745 55 
END DUMPMCPSAVECODES _ 01281750 | @ 
ARRAY INTSPLOSINAMESIZE 434 01282000 é 
@ °®@ 
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INTEGER INTSPMAX3 01283000 
PROCEDURE GETSORTANOLISTINTRINSICS3 01284000 
B Noo hd oe te ee ee ee OP OS O00 - 
1 INTEGER IMAKsTYP3 | 01286000 
2 REAL ADReRoLs 01287000 
3 R 3 7-5 91 ao 
\4 FORMAT ITEMCX22A3e™ Ss e(X49A5) )o 012886000 
5 BADINTOC "wes BAD INTRNSCLOIJ"), 01288100 
6 XB»"PRESENT INTRINSICS"// 289 =e 
7 MINDEX" s X7a "FROM™ s X5e "THRU DS 01290000 
8 INTSPMAX3#"43 01291000 
9 LF DESCRIPTORCINTRNSCesADRe TYP) AND TYPs" ” 
fo BEGIN 01293000 
IMAXS#ADR, C8210} "13 01294000 
12. 4 H } 
f IF OPERANOCADRSR) ANDO R.C1238)20 01295100 
| AND R NEQ O AND R LEQ IMAX THEN IMAXS®R ELSE MIXtee]3 01295200 
As >o Ee eree 
. FOR Issi STEP 1 UNTIL IMAX DU 01297000 
he IF OPERANDCADRtI sR) AND ReCF71023 TREN 01298000 
: IF [mi7 THEN ReCF&CReCF 43) CTF & 108838310) ELSE 04299100 
eo” R,CF8& : 01300000 
ee O<(L3siL.FF) ANO 01302000 
P L<1023 THEN 01303000 
al Il8s3er10)}3 01305000 
pe ENDS 01306000 
27) N PM AY 2.0) = é UFO00 asta 
oat BEGIN 01308000 
P NEXTPAGE3 01309000 
ig DISPLA NTRNS RUE) O01: 000 
s IF MIX LSS O THEN WRITECPLDBLJ»BADINTOI3 01310100 
‘ WRITECPCOBLI oF )3 01311000 
P Q N N P N PM A xX 0) DOO pe ee 
a4 FOR Is=0 STEP 1 UNTIL INTSPMAX DO 01313000 
a BEGIN 01314000 
pe W NEC * TEMS UCTAL(L2=INISP 83 01315000 
P OCTALCINTSPEIJ«CF)» 01316000 
: OCTALCINTSPCIJ «FF D3 01317000 
Ps SINTMAX i 0 BOOO 7 
MOVECINAMSCINAMECL IJ +CFIsLINEL4I» 01319000 
1 INAMECLI.FF)3 01320000 
i WR D sToL INE (*))3 01321000 
= ENO} 01322000 
END3 : wee i 01323000 
NOD GET SORT ANO LIST PRESENT INTRINS ; 01324000 —__> 
STREAM PROCEDURE MOVC(SsSPeDoDPoWsC)3 01325000 
a7 . VALUE SPsDPewWeC3 01326000 
BEGIN : 01327000 , 
ST?2#S3 SIl2sST+SP3 01328000 
BO ; DI&sDe Ol sed +0P3 01329000 
si] WCDSt=8 CHR)$ DSteC CHRS 01330000 
END MOVC3 01331000 
53 BOOLEAN PROCEDURE WITHINCARAYsSAMAX»s [TEMsRESULT»PLUS)3 01332000 
VALUE AMAXsITEM3 01333000 
55 ARRAY. ARAY{O]3 01334000 
Be “INTEGER AMAXs ITEMsRESULT*# PLUS 01335000 
| BEGIN: 01336000 
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5 8, 0 6, 7 é ° F 
D> o & op : Oo & op 


BOOLEAN FOUND; 


04337000 


ih EXITs 01338000 e 
A X 2 N JAGOOO 
FOR 1350 STEP 1 UNTIL AMAX 00 01340000 ) 
IF FOUND#s 01341000 1@ 
_____{ARAYITI,CFSITEM AND ITEM SARAYCTUAFF) THEN gy uzn00 : 
BEGIN 01343000 A 
ea lands Or La: 1033 01344000 :|@ 
tz 01345000 = e 
a TO EXITS 01346000 a 
ENDS 01347000 |@ 
x F = CO ea ee ra SC eR RS MR 
END WITHINS 01349000 ie) 
ARRAY PROGS(0#3408255 13 INTEGER PROWSS 01350000 \@ 
A R PRO DUR RE ADCA 5 A 01351000 : wns Pa ec eee ie 
INTEGER AT oF och FORWARDS 01352000 13 
REAL LOCIRCWS 04352500 W@ 
PRO DURE DUMP ACK 0 O00 sv 7 
VALUE INX3 01354000 a 
INTEGER INXS 01355000 @ 
H N 5 Seber ml ea ain a ee Bi 
INTEGER TOS»BOSsSEG»ADRsHsL»PROsI3 01357000 1@ 
INTEGER | lY3 01357100 . 
ROOO ee, Peak et 
REAL ToSenTeeys us BOOLEAN WUUPS3 o1as0006 le 
LABEL ERROWTS 04360000 i 
Ramee oct 8 1 2) Cee G0) 1s Ce eee ee ee sean Bi hn Oe 2 eee Bele 
LABEL SKIPEEE; 013601000 ® 
LABEL SQUEEZE »CUTBACK»XIT3 04362000 26 
- . 2 
DEFINE DELTAsSO#3 01364000 10 
DEFINE MAXSTACKSIZE251243% MAX a TACK BELOW TOS wE"LL DUMP 01365000 e 
= Pecsac STAXCINXI #5 QO1365100 0 m 
BOOLEAN NORMAL »FOUNDS 01366000 5 
FORMAT HDCX8s"STACK FROM “sae” DOWN TO "»A5)>» 01367000 | @ 
— De" = "pAbe2(X1sA5 368000 3 
SCX8e "BED ts rere E"sAGe X19 AS#X1 2 AS 9%» MaSK= "y 01369000 
ASr ext 949) 01370000 2@ 
asAd,"™ ", gatyt,ye + ", 37 (0) 36) 
IC ST CTT Tle )"93 01372000 a7 
NEXTITEMS 01373000 @ 
WRITECPLDBL J» HD? 01374000 39 
IF CTOSS=STAXCINXJ]eCF) LSS 127 THEN “aaeewn™ 01375000 a0 
ELSE OCTAL(TOS)> 01376000 «|@ 
IF (BOSSSSTAXCINXI]+FF) USS 64 THEN "ka aawt 01377000 42 
ELSE OCTALCBOS)): 01378000 4 
IF BOS LSS 64 THEN BOS3=03 04379000 4@ 
“IF TOS LSS 427 THEN TOS#03 0138000 eee 49 
IF TOS=S0 THEN GU ERKOWTs%EeGe IN EARLY SELECTRUN 01381000 ‘6 
IF SPEC THEN GO CUMPIT3 ; 01381100 «1 @] 
NORMAL’ sBOOLE ANCSTAXLINX].6731))3 01382000 Fes 48 
IF INX20 OR INK>BEDSTK THEN 01383000 4s 
BEGIN 01384000 1 @ 
NORMAL TH 01385000 _ eee, = 51 
BEGIN 01386000 5 
WRITECPCDBLIsTRITEM*OCTALC TUS) sOCTALCSPREADCTOSsH»sL))» 01387000 «| 
OCTAL(H)»OCTAL(L) )# 01388000, _— 54 
TOStsTOSe43. 01389000 Bs 
ENDS eo 01390000 |@ 
NOT NORMAL AND BOSs64 THEN 01391000 : J 


oo nwt Mm OF wR = 
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FOR TOS%=127 STEP 74 UNTIL ACTUALPRTIBASE DU 01392000 
BEGIN 01393000 
* : SeHel dip, = UG MOO = 
OCTALCH) sOCTAL(L))3 01395000 
uel esi Cables CFISLINECSIOXNAMELTOS) OFF 3 01396000 
: FC(PCOR B : OL3970090 oo 
ENDS 01398000 
IF BOOLEANCSTAXCINXI.(631)) THEN BEGIN Fate 
OSUR =IOS;3 OO 
SQUEEZE300 TOSteToS"1 UNTIL CWOURPStsTOS LEG BOS) OR OL asioce 
CONTROLDESC(TOSex)}3 01402000 
WOORS N 5 A a STUS+103 i] A NOS 0 BOON 
CUTBACKSIF CY¥t=XeFF) GEA BUS ANL 01404000 
Y LEQ BCS +1 AND 01405000 
; ts : HEN Prone: 
BEGIN , 01407000 
TOSSSMINCTOSORIGs TOS+DELTA)3 01408000 
aca ce aa a a Sa I a a eee OO eae tn in 
END 01410000 
ELSE 01411000 
les se a ak cs AN Gs Ne oe ee SOA OOO a fa 
AND CD THEN 01413000 
GO CUTBACK; 01414000 
Ee a a i WOOP 000 oe 
XIT3 01416000 
END3 01417000 
ts sl a TIN a a a es i ee POO eet mene 
IF QPERANDC1O7»V) AND V8CYEaMEECEMAMEE EEL 1:25:23)) THEN 01418510 
BEGIN 01418520 
Q iis T 0 A= b> 1 9 a ane nee 
IF OPERAND(IsV) AND V NEO Y THEN [821123 01418540 
IF Is413 THEN FOR TOS?=1i11 STEP =-41 UNTIL 198 DO 01418560 
WR PLDOBLJsTRITEM-OCTA is 01418570 a 
; OCTALCRISSPREAD(TOSsHeL) 2» 01418575 
OCTALCHI*OCTALCL) D3 01418580 
ENO; 01418590 = 
SKIPEEES 01418600 
IF CPERANDCTOS*»V) THEN 01419000 
IF C(CCVS"EEEE*RU"EEEE"L 3 825323)) AND NUT NORMaL) QR 01420000 be ants Ae ee 
CovVeEMCCcevtar cece" £ 182582339) AND 01421000 
NORMAL) THEN 01422000 
WH OPERAND O8—12R) AND R=V 00 01423000 §—. 
TOS:=70S"43 01424000 
ENO 01435000 
a 01436000 20 
BEGIN : & 01437000 
WRITECPCDBL J#SsOCTALCV+STAXCINX +8810) Ds 01438000 
OCTALCSPREADC Ve VFtVBES CF eH: , O1439000 
OCTALCH) »OCTAL(L)» 01440000 
OCTALCReSPREADCV4tl1eH»L))» 01441000 
OCTAL¢H)»CCTA ds O14 am 
If OCTALCR. £3086])="74" THEN. 01443000 
IF WITHINCMCPROG*MAXMCPROGsV tev, CFsSEG*ADR) THEN 01444000 
BEGIN 445000 
WRITECLINEL*]> Co"COMPLE™»"xX SLEE"»"P AT "ys 01446000 
OCTALCSEG)»SEGsOCTALCADR)* ADRAR. C40%2])3 01447000 
MOVE CNAM S{NAMELSEG) -CFI,LINEL7 I» Qi 448000 pith a eo, Aaa a tn ss 
NAMELSEGI.FF)3 ; 01449000 
WRITECRPLOBL Js 1 SesLINECe))3 01450000 
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ELSE WRITECP); 


01452000 


END 01453000 e 
BOS=0 HEN <=MAX = 7 NORMA HE MAXSTACK 01454000... 
ELSE 128)) ELSE 01454100 
IF 80S>TOS THEN BOS#SMAX(O»TUS@=1)5 01455000 |@ 
wee M 01456000 3 
THER BOStSTOS=*MAXSTACHSIZE413 01457000 le 
DUMPIT3% 01497100 : 
F_MYSTACKADR GTR O ANDO MYSIACKSIZE=0 TREN 01457110, | 6 
IF NOT MYSTACKOUMPED THEN 01457120 ie 
IF MYSTACKAOR LEQ TGS. THEN 01457130 . 
gt ai eee: 01457440 Bhat 8 
MYSTACKDUMPED?:STRUES 01457150 ie 
FOR [:=TOS STEP ©4 UNTIL BOS DO 01458000 1|@ 
: espe ee OWS COO ib 5 cuneate. "2 
WRITECPCOBL Js TRITEMsOCTALCI)»UCTALCR*SPREADCI veld) 01460000 "3 
BCTALCH)» 01461000 \@ 
see : 462000. 15 
PROM="13 01463000 ‘le 
FOUND$ =F ALSE; 01464000 7 
ONTROLDES A i1R_O) A 4 be eee eee ies 
X,FF GTR BOS AND XeFF LSS TOS AND I NEQ@ IY THEN 01465100 "e 
BEGIN 01466000 s 
WITHINCMCPRUGsMAXMCPRUGsL «CF *SEG»ADR) AND 01468000 i 
TRUE THEN 01469000 21@ 
ee sical SG a I ee el AG OOO ie x. fuse tnd wi ee es eri ee a9 
WRITECLINEL aI sCe"MCP SENS"GMENT “os "AaT "» 01471000 E 
@CTALCSEG) »SEG»OCTALCADR)» ADRy Rs (40121); 01472000 2 @ 
DSS fi attest ae M AMS [NAM L 2 (1 [Sa ee eo ee P 
NAMECSEGIeFF)3 01474000 i 
ENO 01475000 1@ 
a : CY a 100k a rn a ee 30 
IF FOUND t=WITHINCOUTERBLOCKsOsL,CFeSEG»ADR) THEN 01477000 A 
WRITECLINEL*]¢Co "MCP OUTS "TER BLO "OCK  "s 01478000 2 @ 
iecsreet scan sd ok A : es OPA T9000 oc eee: ccteein phe oe See eg ey ee, 39 
ELSE IF NCRMAL THEN 01480000 
BEGIN 014860100 ch 
——-________1F_FOUNDt=SWITHINCINTSPs INTSPMAXsb oCF*SEG* ADR) THEN = 04481000 a 
BEGIN 01482000 7 
MRITECLINECS}9 Coe INTRINGs "SIC NU"S"MBER "es 01483000 34@ 
zits SEG, OCTA ADR OR»R C403 01484000 39 
VOVECINAMSTINANETSEGI« CFJ»sLINEL7)> 01485000 40 
INAMELSEGJ oF F)3 01486000 «|@ 
| END | 01487000 a2 
ELSE 01488000 4 
WHILE (PRO?=PRO+1)SPROWS AND NOT FOUND DO 01490000 «@ 
ete IF KOUNOS#WITHINCPROGSC PRO» +) »PROGS(PROs255)]- 01491000 phate eee 4g 
LCF »SEG*ADR) THEN 01492000 5 
WRITECLINEL wJeCo"SEGMENS"T NUMB™®"ER My 01493000 + @) 
COTAL( SEG)» SEG» OCTALCADR) pADK eR 64082193 01494000 ‘9 
ENDS 01495000 4s 
ENO ELSE 01495100  @ 
N ORMA my : 5] 
IF BPERANDCETO AND XoC1$1)21 AND X,yC3!1)20 01497000 5 
THENSPOSSIBLE CQDE CUVERLAID) 01498000 :1@ 
Yisx ) R 5 A 01499000 a 
Y 488] AND 01500000 6 
(SEGIEX«CF) NEG 0 AND 01501000 @ 
$$ 1023 AND 01502000 5 
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TYts¥3 
WRITECLINEL HJ oCo"SEGMEN"2"T NUMB" 2 "ERC w) Me 
: Bp ae 


, nN 


ERROWT3 


INTEGER PROCEDURE SFREAVCATo Fs Cds 


END} 
IF FOUND THEN 


Pes RITECPE DEL 045 VELel)i 


ENDs 


01503000 
01504000 


Oo eel 


01504200 
01505000 


01506100 
01307000 


01509000 
01510000 


a a 


01312000 
VALUE AT# 01513000 
A ; ; eae PSs a 
“BEGIN: 01515000 
SPREAD =CHRS (MEAT, ROWS AT« COLI s053)3 01516000 
Cie (FESCHRS(MIAT .ROWP ATs COLI» 305) )0CF3 O15i17000 

FesFr FF 3 01518000 
END SPREAD} 01519000 

PROCEDUR M M 2 ¢ ads 
BEGIN 01521000 
INTEGER MIXeTYPSPRTIHSPRITF oHoF pCoF PBs SDs Al Ts S3 01522000 


$i UN TE GER FAP Ae AG ANC a ch Na a ie i en ae ree ES SOON nk Js os ad 


INTEGER A3 01524000 
REAL JAROO; 01325000 
‘BOOLEAN PRTOK; 01526100 
FORMAT A aa = Wedel Aa Reid laos og 01527000 
" ns ) 2 2 
INTEGER PCOL*SIZ»ROeCL*RP 01529000 
hae SEGS»sSGM3 01530000 
ADR 0715 000 
ARRAY LSTD(@83)3 013532000 
FORMAT ea en ae PROGRAM SEGMENTS"// 01533000 
" AT HRM O1534000 
BADSIZECBCME")»” TNVAL 1D SEGMENT DICTIONARY SIZE “sBC(*#") )> 01535000 
BADSDESCCAC a") eo" BAD SEGMENT DCE INA DESCRIPTOR "s8C%e"%)), 01536000 
AN X 3220 Ade X alxisa x 015 000 
PDOCAS»™ = *pAb2X ie2(AS eX) 2" s ae” > Ade” +s AG)3 01538000 
STARS 3a enww 3 STARS s (OSL BIISSTARS, (24318); 01539000 
D RIPTOR( JARs JARO P AND TYPs"S0" THEA 04540000 ae 
JAROSEIJARO,CF3 01341000 
IF CPRTOK ?=PDATADESG(PRT*PATO)) THEN 01542000 
PRTH2 sSPRE AACPR PR RTO QO ore fous aa 
IF PRTO>O THEN : 01544000 
FOR MIXsay STEP 1 UNTIL MIXMAX po. 01545000 
ONEMIXs0 CR UNE M = N 045454300 a Saas Set 
IF DESCRIPTOR(PRIO#MIX» Re TYP) AND TYPe"50" THEN 01546000 
BEGIN 01550000 
ameter = 91551000 
WRITECLINEC ®] Hie M1X)3 01552000 
oF coi — 01553000 
ELSE 01555000 
DESC RIE TON CUNEO RHE sev eke Os IVR AND TYP=s"50" 01556000 
D AROO* JAROO d 0 HEN 0 O00 . 
BEGIN , 01558000 
MOVCCMECAtSJARO0). ROWsA COLI» 01559000 
N e217Q27: 3 01560000 
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MOVCCMECCASSA+1),80W2A,COL Jo 1» 01961000 
LINEC3)219097)3 01562000 
ND () PO SOOO. 
ELSE: 014564000 
BEGIN : 01565000 
ane M ARS?» 2i9ivO» pe OLD OG O00 oi i 
MOVCCSTARS» d»LINELC 33 212097)3 01567000 
END; * 01568000 
= WRITECPCOBL Joi 5+, INEC#I)3 01569000 eee ete eee 
NEXTITEMS act 01570000 
WRITE CP SHDs 01571000 
Q P —_O1972000 
OCTALCPRTH)s OCTAL(PRIF)> OCTAL (PATO) »* ", 01573000 
pecs pte] 5 01574000 
PRTQ+mI] X fed saath sai Ades re 
OCTAL (SPREAD (PRTODNIK)F/ RI), ETAL (FYOOCTAL CRI» 01576000 
TF Fs0 THEN " © ELSE Naty © 01577000 
Be "PRILCMIMe "Xe e)e “e"CRAR  %, 01578000 
OCTAL(R+3)>» 01579000 
OCTALCHS=S=SPREAD(R+3eF ,FPB)) sOCTALCFE)»O0CTALCFPB) >» 01580000 
IF OCTALCH.C30%6) )="50" THEN " " ELSE “wits Q4581000 2 
SetRe de Fe" PR " 01582000 
OCTALCR+4)>» 01583000 
IF OCTALCHeL3026])3"50" THEN * " ELSE tte, 01585000 
Me "Rede Sto"EGMENT's”™ DICTIMs"QNARY "a 01586000 
PN) nn at ee ee ee OPO OOo oe, 
OCTALCHI SSPREAD( R+6eF pALT I) SOCTALCF )sOCTALCAIT)» 01588000 
IF BOOLEANCHs f30ti]) THEN " " ELSE tate, 01589000 
Ww, > 
aerrene 01591000 
OCTALCHTSSPREAD(R4+7> FeC)»OCTALCF )»OCTAL(C)» 01592000 
4 QO: z AK <K_AN =0 HEN Wet? 019 YOO i ash ee are cs 
To Roe7e Le "AST MS"s"CW FORM," WHICH" s" MSFF tt, 01594000 
“WAS FAS *LSE "> 01595000 
+ 2996000 
OC TALCHS SSPREADCR+8 oF 5C))SOCTALCE ) »OCTALCC)» 01597000 
“on, 01598000 
2e"R+10>o "e"INCW My Qi599000 
OCTALCR4+9)» 01600000 
OCTALCHESSPREAD(R#94F 46) 0CTALCF )POCTAL(CI™ 01601000 
IF H=sO-AND FeO THEN " * ELSE «te 01602000 
9e"Reiie “s"LITERA™®"L FOR "s"LAST C%»"QMMUNI"s 01603000 
"CATE UR"s" PRUGR™S"AM REL™,"EASE ", 01604000 
OCTAL(R+10)» 01605000 
OCTALCHFERSSPREADCRE1LO0sSsC ISOC TALCS) sOC TALC Cs 01606000 
IF OCTALCHe 30861) 8"50" AND O<S AND S<R AND Ree 01607000 
et T ed SE ‘%«.*" 04160800 
5e"Reyoe te"FF = BM > "OTTOM "s,*OF THE's”™ STACK")3 01609000 
IF a le oho aNd at AWO (CLOCIRCWISH.CF) GTR 1024 016009100 
AND H,F TR 24 THEN ELSE LOCIRCWt== 01009200 
NEXTITEMS 01610000 
PROGSEPROWS! 200255] 19PCOLt==43 01611000 
IF DESCRIPTOR(R+4sSDeTYP) AND TYP=S"50" THEN 01612000 «. 
IF OPERANOCSO:*SOeCF»SEGS) AND SEGSel61:37]=0 THEN 01613000 
BEGIN 01614000 
WRITECP»SEGH)3 04615000 
FOR SeGtsy, STEP 1 UNTIL SEGS DO 01616000 
IF OPERANDCSD+SEGsSGM) AND 01637000 
(CADRE BSGMeFFI>1023 THEN: 01618000 
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BEGIN 01619000 
$1Zi 01620000 
fcopemanncana=L,3122 ag tgp 
S12.CFSSEG) 01623000 
COPERANDCADR@"12512Z) AND 01624000 
pss " A 625000... bates eeene 
H,C3%6)=7 AND 01626000 
SIZ.(8210)5SGM.CF) THEN 01627000 
IF BOOLEANCSGM.(221)) THEN 01629000 
BEGIN 01630000 
eeaeeer one 3G aS OPO ST OOO 
STARBLANK&s"a"5 041632000 
FOR I:=0 STEP 1 he INTSPMAX DY 01633000 
NTSP i =| EN OLO340090 ss 
BEGIN 01635000 
IF Lei? THEN SyZtea3 01635100 
ts See eee 
It S=[NTSPMAX+23 01637000 
* ENcS 01638000 
(8 ae ee ae ey te * 12 SEG SEG 04639009. 
OCTALCADR)*# IF SIZ=0 THEN STARS ELSE 01640000 
OCTALCADR+SI 291) 2 0C TALC LI» STARBLANK)3 01641000 
Oise eo 2 th 
MOVECINAMSCINAMECL JCF Isc INELY Js TNAMELCL J 6 se 01643000 
WRITECPs7eLINEL*) 23 016440900 
ELSE 01646000 
BEGIN 01647000 
: ot p 
BEGIN 01649000 
Bo aetna eal ai 01650000 
PROWS$sPROWS+ 01951000 —_—_—__- 
PCOLt=0; 01652000 
END} . 01653000 
P Rf) ROWS sP CO = O4654000 
ADRS 01655000 
CIF SI1Z50 THEN G ELSE AOR+S12"1)018333%45]&@ 01656000 
SEGLBI38t1O]3 01657000 —— 
ENDS 01658000 
END3 01559000 
IF (PRO S. PROWS»255]%sPC0 320 LHEN 01660000  —s_—- 
BEGIN 01601000 
FCR ROt=sO STEP 1 UNTIL PROWS OO 01662000 
$ ROGSERUs* J] sPR SC RU ys, 6 Sekt a oases ee 
SEGStaPROWS413 ; 01664000 
FOR [2320 STEP 4 UNTIL PROWS DO 01665000 
Sd a ee oe EG ENG ie ee eagle i ee EB OOOOD.- 2 So 
SEGS%=SEGS+PROGS([-255)3 01667000 
LSTOCTII:=03 01668000 
ENDS 01669000 ae 
FOR SEGss4 STEP 1 UNTIL SEGS DO 01670000 
BEGIN 01671000 
RO's0;3 01672000 es. 
IF PROWS>O THEN 01673000 
FOR Is=1 STEP 1 UNTIL PRUWS OO 01674000 
STOCROJ=255 UR 04675000 
CLSTOCII<255 Ano : 01676000 
PROGSCIT#USTOCIII¢CF<PROGSCROsLSTDLCROIJ},CcF) 01677000 
_ THEN 01678000 = 
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ROs=sI5 01679000 
WRITECPs SEGMENT» 01680000 e 
Mi=PR Ro NF RO ‘ont 0168 OO Oa a ot ee 
IF SGM.FF=0 THEN STARS ELSE 01682000 : 
OCTALCSGM. FF°SGMsCF+1)» 01683000 |@ 
ee ieart _ 01684000 3 
STARS ELSE OCTALCSGM,FF))3 01984100 ‘ 
LSTOLRUJP=2LSTDCRUI413 01685000 ‘|@ 
se a oe Oot ot Se ARADO es ce een a ee a Ses s 
ENDS 01687000 y 
oi epeoge |@ 
ELSE WRITE CPCOBLIJsBADSIZE) EXSE WRITECPCOBL J» BADSDESC)3 01989000 ‘ 
IF CAITS=MIXSTKEMIX]) = O THEN 01690000 1@ 
STAXCO]8= 01691000 i 
(S#1)118833815I)¢ 01693000 ‘e 
10724714) ELSE 01694000 ie 
Fe N hike ois picasa Pa chou ces 
IF STAXCAITI.FFSO THEN STAXLAITI,FFi=S"13 01695000 ‘le 
MIXSTKCIMIXJ] 8203 01695100 Ad 
ND OF 6952090 a bi 
DUMPSTACKCAIT)3 01696000 . 1@ 
IF ONEMIX NEQ@ 0 AND ONEMIX*MIX THEN MIXS2MIXMAX413 % XIT 01697000 20 
. 21 
IF PRTOK THEN 01698100 1@ 
FOR MIXt=1 STEP 1 UNTIL MIXMAX DO 01698200 a 
st MR =03 Prsctate tO OO BO se ei ee Se ise et et ee ae 
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res $ 8600 36 tere 2 
END DUMPING NORMAL STATE PROGRAM INFO 01699000 ee 
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; N © Tr 5) W126 ERS RI ae ek eee ee - 
FORMAT HCX8s"CONTROL STATE STACKS"); 01702000 Je 
REAL VaReA3 01703000 ae 
_ NT Xe T3 704 eee ee re 3 
NEXTPAGE3 01705000 
WRITECPCOBLI>h)3 01706000 3 @ 
Ojts p64718233!15]3 Qi707000 oa 
DUMPSTACK(8)3 01708000 ra 
NEXTPAGES 01709000 94@ 
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IF DESCRIPTORCISTACKsAsR) AND R="50" THEN 01711000 40 
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[tsAevel3 01713000 42 
IF BEOSTK GTR O THEN 01714000 4 
FOR INXt=1 STEP 1 UNTIL BEDSTK vO 01715000 4@ 
__IF BOOLEANCSTAXCINX).(€731})) THEN ELSE 01716000 $5 Reser 49 
BEGIN 01717000 40 
RtE=STAXLINX],CF3 01718000 |W 
IF R GTR A AND R LEQ I THEN 01719000, 8 
BEGIN % ISTACK ASLEEP 01720000 ag 
STAXLINXI oF FLRAS 01721000 «| @ 
NEXTITENM3 01722000 _ 51 
DTSPLAY CISTACKS TRUESD 01723000 5 
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END SPECIAL ISTACK STUFF3 01725000 Boone Bs 
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MAX K R BED MEN A K D) 0 O00 ieee eee 
FOR INX#@BEDSTK41 STEP 1 UNTIL MAXSTK DO 01738000 
goa 01739000 
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_DUMP ; co Wa ie Ss eer, cee ne eee 
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END? 01742170 
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STREAM PROCEDURE MOVD(SsDeW)3 01750000 ; 
Sor A Ef or siggg. 
BEGIN 01752000 
i tk pee : 01753000 
WCBCIF Scanen THEN JUMP UUT 2 TO EXITS DS#sCHR))3 01755000 
STt=Sle13 OLls=ol43 01756000 
H = H tee 
ENO MOVD? 01757100 
PROCEDURE PRINTQUEFUECPROC»CUDE); VALUE PROC,CODE3 01757300 
\ R FRO ODEs 0) a te ae ees Soe 
BEGIN 01757320 
BOOLEAN 83 01757330 
TEGER 01757 nd eee 
REAL AsReSoTeJsUSERCODES , 01757335 
FORMAT Q1(A5e"% & Mp2COeXLoLT2e/ > T29XKBG Do 01757340 
Q2CA5a" 3 2COs Xd eles "s/ "oleaXis"USEREM SAL SAG 01757350 el eee 
SQI(AI#X3e20C2(OeX 1) Xd) + X29X72) 01757352 
r) 01757355 
CracODE FFI  OL757410 
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Opgs = wae 
BEGIN 01757425 
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) MASKi»F AL ou 
DESPL AY CINFOMASK@~FALEE SE TELTG 
ea aerate ata 01757450 
P MASK¢ AL'SE 7 757455 
END3 01757460 
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sO3 O > 00 
IF OPERANOCPROC»A) AND Ae€929]=511 AND (Riza,CF) NE@ PROC 01757505 
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eines oe en aE 2. 1s ee ee 
BEGIN % OCE«Gs STATIONMESSAGEHULDER) 01757570 i 
WRITECLINEL*J¢@L» OCTALCR) »OCTALCHIHALFCR) D> 01757580 |@ 
ea 22) _oy7s7so0 3 
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IF B THEN USERCODE.t12:36) ELSE © "3 01757750 | "3 
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aeeedees 7 +19R+5)3 _oi7s7ago , 21 
IF OPERAND(R+1»5) AND(S!=5,CF) NEQ R41 THEN 01757845 
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END UNTIL NOT GPERAND(S?1) OR 01757890 
(SteT,CF)eRe1 OR 01757895 
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X120" Co:3)/ 01780000 
Xi2e"4, (325) HARDWARE UNIT NUMBER" 041781000 ne ee ee 
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BEGIN 01815000 
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IF DATACOM THEN 01985100 
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IF 129¢6€R:3R.CF) AND RESPRTMAX THEN 02006000 
M NE gM a clata tS eh cose tan te 
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Sees eee coe su en eS eae ewe MOO DOO Aecterr, tdytnkea ete eee area Sood? 
WRITECP915eTBE¥))3 02061000 - 
@ ENDS 02062000 21 @ 
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@ DISPLAY CIOQUESLOTS»FALSE)3 02064500 22] @ 
‘ OISPLAYCIOQUEAVAILsFALSE)S 2065000 fe Ss Seman. eee er 33 
, IF VERIFYCUNTT#UA®US) AND 02066000 
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@» END} 02115000 
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GO TRYANOTHERS 02119260 16 
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IF NODUMP THEN ELSE 02144000 
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BEGIN 02165110 
NODUMPTOGS=TRUE3 02165 BBs ea 
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BEGIN 02167000 
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DUMPROGRAMSS . 02171000 «@ 
DUMPCONTROLSTACK 0 72000 g 


Data Documents/inc. 


e q 
PRINTSELECTECARKAYS; 02172100 
e DUMPAUXMEM$ 02172200 e 
ND »e @ {3000 
1 EOPROG3% . 02173400 
@ FILL COLLATEC®) WITH 02173500 
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e@ : 0C12021222324252627» 02173530 
t 0CT4041424344454647>5 02173550 
rd] : 0CT5051925354555657,5 02173560 
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Ne ND a a ae igs ee OO TRB a ee ee 
t IF MULTI AND TDF I0,€30%181 GTR 1 THEN , 02173700 
er BEGIN C2177 16 
1 . 
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COMMON!=COMMON OR BOOLEAN( 384) ENOS 02173798 
MYSTACKADRi="13 02173799 Ee uted, 
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